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ABSTRACT 


Speech is « primary means of communication between 
people* Developments in the digital IC technology and 
the development of good digital signal processing algorithms 
has made processing the speech in real time feasible* With 
this development the speech signal processing activity ha# 
come to a stage from where low bit rate speech communication 
and man-machine communication via speech looks feasible * 
whereas the speech processing activity In 1975-1085 period 
centered around bit - slice microprocessors using TO technology# 
.the current trend in speech signal processing is the use of 
special purpose signal processing chips* This thesis addresses 
itself to the discussion of architectures for speech processing* 

The salient features of speech processing architectures 
reported in literature which are based on AM 2900# AM 2903 and 
MC 10800 bit-slice microprocessors are discussed* Simulation 
of Texas Instrument's Signal processing chip TMS 32010 has been 
dons on DEC system 1090 computer at TIT Kanpur using a modular 
PASCAL program* A debugger incorporated as a special feature 
of the simulator has also been presented, A simple assembler 
for TMS 32010 has been written* Illustrative application 
programs such as a 17 tap antialiasing digital filter program 
and FFT program to compute 64 point complex DFT have been run on 



the tiwilator* These program® confirm the suitability of 
IMS 32016 for speech processing# Bottlenecks of TMS 32010 
architecture have also been pointed out* 



CHAPTER 1 


I Kfl RQ IUCT 10M 

Speech is the primary meant of communication for human 
beings* Speech production mechanism suggests that if speech 
parameters, are extracted fro® speech* they could provide 
additional advantages* The advantages are* low bit rate 
communication* man machine communication by voice* speaker 
identification* automatic speaker recognition to name a few,. 
Miniaturization and the advent of large scale integrated 
circuits in electronics industry brought the microprocessors. 
Speech processing requires a large number of computations to 
be done* If the speech Is to be processed In real time, the 
processor speed has to be about 4 to 5 MIPS, Bit slice micro- 
processors using TTL technology offered solution to the real . 
time speech processing problem. 

Different architectures of real time speech processor 
evolved from 1977, The VLSI technology available In 1980's 
has made signal processing chips for speech processing feasible, 
IMS 32010 is one of them. This thesis Is concerned with investi- 
gation of different architectures for real time speech processing 
and simulation of the TMS 32010 with the facilities available 
at ITT Kanpur, -For simulation* choice had to be made between 
the POP 11 system available in Electrical Engineering Department 
and the DEC system 10 available at computer centre of I1T Kanpuj 
PDP 11 system was found unsuitable for the task because the basi< 


word length of POP 11 system is 16 hit whereas the arithmetic 
section of TMS 32010 does 32 bit fired point arithmetic* 
Expansion facility to enable the POP 11 system to perform 
double precession arithmetic is not available at present* 

The software solution to. this problem acted as a deterrent to 
use POP it to simulate T MS 32010, 

Having decided in favour of DEC System 10 computer for 
running the simulation program a further choice had to be made* 
between one of the several general-purpose high level languages 
(like PASCAL* FORTRAN) awl specifically hardware simulation 
oriented languages like AHPL. It was decided to use @ general- 
purpose high level language for the following reasons t 

1) A special-purpose language would require learning 
afresh and the limited time available would not permit requisite 
de pih * 

(2) Higher-level language provides portability between 
computers* 

Among the hi#i-l@vel languages PASCAL has been chosen In 
preference to other languages because of the following reasons! 

(1) The inherent capacity of PASCAL for character 
handling and structured syntax simplifies the implementation* 

(2) Writing and checking of the program in PASCAL is' 

easier* 

(3) Written description of the program more or less 
depicts the algorithm* Whereas In FORTRAN Just by looking at the 



(4) Once the program la broken up into smaller 
modules, the way It is arranged in PASCAL is much better 
than in FORTRAN* 

(5) PASCAL has better data structures t and thus 
the Memory and CPU registers of TMS 320 can be represented 
in a better way in PASCAL. 

(6) The case statement in PASCAL is much better 
than for example, the assigned go to or computed go to 
statements in FORTRAN. 

(7) PASCAL ©n nest of the systems has better run 
tine diagnostics which help in writing and running correct 
programs in FORTRAN even If a program works, it may not be 
giving the proper result or even the error might go un-noticed. 

( 8 ) In an environment like that of IIT Kanpur, where 
PASCAL is widely used by students, it will be easy for the user 
to understand the program and modify it suitably, if necessary, 
in future. 

The thesis is organized into seven chapters including 
the current one. Above mentioned reasons give the motivation 
and the approach followed for this project. 

Chanter 2 starts with basics of speech and speech 
production, A source filter model Is explained for speech . 
production .Speech processing systems are mentioned briefly, 
Basies of LPC channel vocoder are given from the view point 
of the number of computations. The chapter ends with the 
computational requirements of the real time speech processor and 



suggestions about the speech processor architecture to achieve 
them. 

Different speech processor architectures based on bit** 
slice microprocessors are given in Chapter. 3 » Improvements 
of one above the other are also discussed* The chapter ends 
with the architectural description of Texas Instrument 1 * Signal 
processing Chip IMS 32C10 as a speech processor* The drawbacks 
of IMS 32010 are also listed out* 

Chanter 4 describes the design of the assembler for 
IMS 32010. The facilities provided in the assembler and its 
operation are also ^Lvan* 

Chapter 5 gives the simulation details for IMS 32010 
simulator* The debugging facilities provided as special 
features of the simulator are also explained* The methodology 
adopted for simulation is given* 

Charter 6 gives the results of a digital filter program 
and FFT program run as bench mark program* In addition to 
verification of the assembler and simulator by these programs, 
the suitability of TMS 32010 chip for speech processing 
application problems is also established. 

Chapter ? gives the conclusion and lists few suggestions 
for future work* TMS 3201 0 assembly language syntax* Assembler 
and simulator error messages* and program listings are given 
in Appendices A. , 1 ..and, c respectively* 
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CHAPTER.. 2. 
SPEECH PROCESSING 


2.1 ITOOSOSTXOt* 

Speech is by far the most common method of communication 
amongst human beings « Speech is a peculiarly human activity, 
not endowed to other species* There is no doubt that animals, 
birds, and even insects can communicate within their species 
using well understood but fixed sets of sounds , $hat they lack 
is a communication system with the flexibility of speech and 
the' ability to string together patterns of sounds to signify 
different and new things# In the beginning man ms not very 
different from other species in the use of vocal organs, most of 
the communication being done by symbols using hands. Invention 
of speech was not due to the need to express his thoughts but 
due to the difficulty of "talking with his hands full"* Hi 
found his hands too busy in the work and learnt to us® the 
voice organs to produce speech for communication \Y] * 

At the acoustic level, speech signals consist of fluctu- 
ations in the air pressure which propagate to an acoustic 
receiver, tbs human ear. Sensitivity of the esr is limited and. 
the acoustic energy of the speech signal diminishes rapidly 
with distance. Hence acoustic wave Is not a good means of distant 
e ©Monica ti on* Until the invention of telephone by Alexander 
Graham Bell, speech as such was not used for long distance 



v 


communication* The telephone acts a© a transducer which 
varies the intensity of electric current precisely a* the 
air varies density during the production of speech sounds* 
Bandwidth of conversational telephone channel is about 
3 KHz with an Sl'JB of 30 dfo* Channel capacity is given 
by Shannons formula [l4] 

C * BW 10^2 (it s /N) bite/s e© (2.1) 

Equation (2*1) indicates that a normal telephone 
channel has the capacity to transmit information at rates 
30*00© bits/sec , 

The information that is communicated through speech 
is of discrete nature; i*e* it can be represented by a 
concatenation of elements from a finite set ©f symbols* These 
discrete symbols (elements) from which every sound can foe 
classified are called phonemes * Each language has its oust 
distinctive set of phonemes* typically numbering between 30 
and 50* English language* for example ha# got 42 phenomes* 

Limit on the rate of physical motion of speech articulators 
requires that the humans produce speech at an average rate of 
about 10 phonemes/ sec* If the phonemes are represented toy a 
set of 6 bit binary number (2 6 ** 64 C 50), average information 
rate of speech comes out as 10x6 * 60 bit#/ sec* In other words 
the written equivalent of speech contains information equivalent 
to 60 bit «/»«©* at normal speaking rates* If tee correlation 
between pairs of adjacent phonemes is taken into consideration* 



Different experiments ijQ to measure the capacity of 
human charnel. indicates that human feeing is not capable of 
processing information at rates greater than 50 btts/sse* 
this inf ornation rat® for written equivalent of speech is 
about 600 times lower than the capacity of a normal telephone 
charnel* It suggests the need to '* process #f the speech signal 
to bridge this large gap between the average information rate 
of speech and the charnel capacity to transmit it* It can fee 
argued that human speech contains much more information than 
the written equivalent such as the emotional state of the 
talker. However* such a large gap between the two capacities 
still remains unjustified. The speech processing has to make 
use of the constraints characterizing the production and partep- 
tion ©f speech, 

2.2 SPEECH PRODUCT ION MBCHft NISIA U) . isi.'IO i 

Basic elements of human speech production mechanism 
are shown in Fig, 2,1, It consists of vocal-tract Which is 
a non-uniform acoustic tube, tsxmiyiatsd by the lips at on® end 
and by the vocal cord constriction at the other end* The shape 
of the vocal tract (and hence its acoustic property) continuously 
changes during speech production by voluntary movement of 
the articulatorsi namely, the lips * jaws and tonga®. The nasal- 
tract begins at the velum and terminates at the nostrils* The 

* \ 

vocal-tract Is coupled to or decoupled from the nasal-tract 
by cbnt rolling the movement of velum* For nasal sounds, Velum 
is ©pen and sound Is radiated from both tee mouth and the nostrils 



For the production of non-nasal sounds the velum is drawn 
tightly up and it effectively seals off the entrance to 'the 
nasal cavity*. 

These passive cavities (vocal tract/nasal tract) are 
excited by forcing air from the lungs in trachea and three# 
the glottis*. The ’* voiced sounds* ' of speech are produced by 
vibrating action of vocal-cords, -The period of vibration of 
vocal cords is known as pitch period*'*. The resulting air 
pressure through vibrating vocal cords is qua si periodic and 
excites the vocal tract to produce voiced sounds* Another 
source of vocal excitation is acoustic noise due to turbulence 
of air created at a narrow constriction in the vocal tract* 

This results In the production of 11 unvoiced sound® *'# Voice 
pitch frequency Is talker dependent* It varies typically 
between 50 to 100 Hz for mm and between 100-400 Hz for women 
and children* 

Most basic property of the speech waveform is that 
they are band limited* Voiced speech segments are characterised 
by hi# energy* quaaiperiodicity and less number of zero- 
Crossings. * The unvoiced speech segments are characterized by 
relatively low signal level* noise like appearance and more 
number of zerocrotsings * It is usually difficult to mark the 
boundary between the voiced segments and the unvoiced segments* 
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FIG. 2.1 SPEECH PRODUCTION MECHANISIM 


PITCH UPDATE 



FIG. 2.2 SOURCE FILTER MODEL OF SPEECH PRODUCTION 







2*3 SPEECH PflOSXJCTXON MODEL 1 1 3 

Sound source and the voeal tract are two distinct 
physical entities. The vocal tract changes shape rather 
slowly in speech production. The voiced and unvoiced 
excitations are mutually exclusive . Therefore, a very 
simple source filter model as shown in Fig* 2*2 can be 
used to represent the speech production mechanism* 

The vocal tract is represented by the time varying 
filter* Effect of nasal cavity Is to introduce additional 
poles* Thetis® varying filter takes care of those additional 
poles. Excitation source is either a quasiperiodlc impulse 
train or a. noise generator* Voiced/unvoiced switch selects 
one of them according to the voiced-unvoiced nature of the 
speech* The amplitude control regulates the energy output* 
Silence can be represented by xero energy* The parameters 
for the vocal tract filter* voice# unvoiced switch* 
pitch period and the amplitude are regularly updated so as to 
keep track of the variations in speech waveform* These 
parameters vary very slowly and an update at every 10-20 msec* 
is sufficient* Study of the speech production mechanism and 
its representation as a simple source-filter model suggests 
the possibility of coding speech information in forms other 
than merely the . transduced pressure wave* 



2.4 SPEECH PROCSSSING SYSTEMS 


Speech processing systems can generally b© divided 
into the following three classes \j2~) » [3l t 

1 , Speech analysis system© 

2, Speech synthesis systems 

3, Speech analysis - synthesis systems. 

2 * 4,1 . 

In speech analysis systems, input speech Is processed 
to get one or mo re parameter of the source-filter model. 

An appropriate action Is then taken based on those parameters* 
Examples of speech analysis systems are - voice response 
systems, speaker verification system and speaker identification 
system, 

block. 

Figure 2,3 shows a bled© diagram of an on line speaker 
verification system. The person wi|hlng to be verified first 
enters hit claimed identity. Then he utters his verification 
phrase? and requests some action to fee taken? in the event he 
is verified. 

The sample utterance which occurs son® inhere within 
a preselected time period is first accurately pinpointed. 

This is dene by '* end point detection* 1 system. Once the begin**-* 
ing and end of the utterance have been found? speech is 
analysed to give a series of parameters. For example, the 
pitch detector is used to measure the pitch contour of the 




FIG. 2- 3 SPEECH VERIFICATION SYSTEM 
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OUTPUT 


FIG. 2.4 SPEECH SYNTHESIS SYSTEM 










utterance. Dynamic comparisons with the stored parameter* 
decide whether to accept or reject the talker. 


2 * 4,2 

Speech processing systems in which speech is synthesised 
using the stored speech parameters are known as speech synthe- 
sis systems. Examples of speech synthesis systems are talking 
/byes* talking calculators etc. Figure 2,4 shows the block 
diagram of a typical speech synthesis system. The excitation 
sources are a variable frequency pulse generator for voiced 
speech frames and © random noise generator for unvoiced speech 
frames. The amplitude of the selected source is multiplied 
by the energy level and then is applied to the filter. The 
filter is a time varying digital filter whose filter coeffi- 
cients are programmed as par the filter coefficients of the 
speech frame, 

2 *4 ,3 Speech 

Vocoders are a class of speech processing systems 
in which speech is first analyzed to extract the speech 
parameters. These parameters are then used to synthesize the 
speech* These systems are popularly known as vocoders. In 
order to implement a vocoder, various types of techniques art 
in general possible both for vocal tract filter identification 

and for excitation identification* The channel vocoder* th* 
formant vocoder, the LPC vocoder and the homomorphic vocoder 
CO * CO » W * C 2 * 4 ] are different vocoders based on different 






schemes of vocal tract filter modelling* 

In channel vocoder a suitably chosen filter bank in 
analysis side extracts short-time energy for every acoustic 
band of interest* This information feeds the synthesiser 
side as shown in Fig* 2*5* 

In LPC vocoder some coefficients related to the overall 
shape of vocal tract filter characteristics are identified* 
Block diagram of LPC vocoder is shown in Fig* 2*6* Sines 
it is well documented in the text {%'} a curst-try discussion 
of linear predictive coding of speech is given in the next 
section* 


2*3 


LIHHAT PP.HDICTIV. 1 * CODING 


At 


SPSHGH 


s n « the sampled speech signal is predicted by a linear 
combination of last p samples. The predicted speech sample 
s n is given by 

•" “ ' I, a * (2 * 2) 


K 

The error between the true a n and the predicted s n is 
the prediction error e n 


e. 


n 


n 


A 

m 3 


n 


(S.3) 


Total squared error E over a block N, < n C Hj Is 


H m 


^2 

1ET 

n«N, 


i 



(2*4) 


Set of predictor coefficients which give minimum 



squared error are the desired predictor coefficients* That 
is, a set of simultaneous equations given by (2*5) are to be 
solved to get the coefficients a^ 



0 


for 1 < i < p 

#“5*^ wfmW 


The solution to 


above problem is [<4j * 


(2*5) 


P M 2 m 2 f. 

®tr X «r,k*®ni " ~ „ ®n* 8 n-i 1 * & $ 

lo=1 K n*Hj nK ni n—M,j n n ^ 1 

( 2 * 6 ) 


Depending on the interval over which the error 1# 
minimized* Aether it is of infinite duration (~eodn < oo ) 
or of finite duration (0 < n £ N*1 ) there are two methods, 
the autocorrelation method or the covariance method* In 
autocorrelation method the coefficient matrix is Toeplitz 
and in covariance method the coefficient matrix is symmetric* 
Recursive methods to solve set of equations (2*6) are avail* 
able * 

Once the coefficients ^ are solved* their value# along 
with the excitation parameters are transmitted to the receiver* 
At the receiver speech synthesis is done using the speech 
synthesizer. 



2 *6 EXCITATION 


Knowledge of excitation parameter is necessary in 
speech analysis and speech analysis - synthesis system* 

Usual methods for voiced - unvoiced decision are energy 
and average zero crossing rate of the signal. Pitch 

cl. 

determination methods also usually give the 0m whether an 
analysis frame is voiced or not* There are several pitch 
period estimation techniques. They are explained and 
compared in j~tl] and \J2j m 

2 7 H/\ROY?AP.S Wiy r £ tJ ,!if ‘BNTSl 

(a) Flexibility's 

There are a number of speech processing algorithm# 
and they Bust foe tested on the processor to evaluate the 
relative perf omanc© , This necessitates that the processor 
must foe programmable, 

(b) Real Time Capability; 

3 

A typical LPC vocoder needs 12x10 operation# 

(add and/or multiply) to process 22,5 msec, speech [ti] « 

5 

That is*' a real time processor has to perform 5x10 operation# 
per second. One operation needs several machine instruction#* 
depending on the architecture, Usually processor which can 
perform four to five million instructions per second (l£PS) 

Is capable of processing speech in real time. Specific 
hardware requirements of the processor from real ti«s processing 
capability are* 



1 ) it should he efficient in instruction execution 

2) to provide enough efficient sequencing instructions 

3) to provide instructions for fast integer arithmetic 

4) to manipulate efficiently the structured data 

5) to perform efficiently the input and output of the 
data for reduction of both time overhead and 
hardware complexity* 

The speed requirements of 4 to 5 MIPS is met by choosing 
the processor architecture based on bit-slice ^ p « s using TIL 
technology. Separation between data memory and program memory 
as well as the large width of the microcode (usually more 
than 40 bit wide) ensures the first requirement* A good 
sequencer meets the second requirement* It _ gives powerful 
branch instructions (including call and return) and sufficient 
capability of nesting subroutines * The third requirement is 
fulfilled by choosing a separate multiplier preferably with an 
internal accumulator. The multiply or wiltiplyHaecnmulate 
time of the multiplier being of the order of one or two clock 
cycles of the processor. The fourth requirement needs that 
the data memory or memories could be addressed in various way* 
as (i) direct addressing ( ii) indirect addressing (iii) auto* 
decrement addressing and (iv) immediate addressing* The fifth 
requirement needs that the processor should be able to handle 
multiple intern pts generated by I/O devices and the I/O device* 
wist have direct memory access* 





2*8 ' C0NCLU3I0M 

Speeeh ©an be represented by^sottree filter model. 
Based ©ii this model there are various methode ©f speeeh 
proeeaslng, Linear predictive coding is the roost popular 
method. To process the speech in real time, the processor 
speed should be four to five MXPs . The processor also need* 
a good program seqitencer, separate program memory and data 
memory sections, a separate multiplier and' the I/O devices 
having direct memory access. The processor must have good 
memory addressing capability and preferably multiple data 
memories* 
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CHAPTER , 3 


AR0I0THCTUHH3 FOR SFdFGB PRC OF 301 KO 


3*1 IMTR0;1?CTI0H 

In this chapter architectures for speech processors 
are discussed,. Desirable features of speech processors are 
listed in Section 3,1 * t , Features of an ideal speech 
processor which efficiently meets the speech processing 
requirement are brought out in Section 3.1 *2 * Four illus- 
trative architectures using bit -slice microprocessors and 
the architecture of VLSI signal processor TMS 32010 are 
discussed* Section 3*2 describes architecture t -which is 
based on Af« 2901 bit-slice microprocessor and Is a forerunner 
of other architectures. Architecture 2 given In Section 3*3 
is based on AM 2903 bit-slice microprocessor which is an impro- 
vement over AM 2901 * Architecture 2 Improve® upon architecture 
t not only on the CPU count but also on the addressing mode 
and access to the multiplier. Architecture 3, given in 
Section 3*4 is based on Motorola* s V/10800 MECL processor and 
is an example fro© HGL family of bit-slice microprocessors* 
Architecture 4 is a definite Improvement on architectures 1*2 
and 3. A good amount of thought process has undergone to 
make it near ideal for speech processing a pplicatlons » It 
uses multiplier - accumulator instead of the simple multiplier 
used in earlier architectures * It has different addressing 
modes* Architecture 4 is described in Section 3*5* Section 3*6 



give* comments m a sehit ectures t to 4* The VLSI signal 
processor IMS 32010 given in Section 3*7 has most of the 
advantages of architecture 4 and comes nearest to the 
ideal speech processor. Weak points of IMS 32010 architecture 
as a speech processor are listed at the end of the chapter 
in Section 3.85* 

3.1 .1 Desirable Features of Speech Processors 

Speech represented in the digital form has to be 
processed by the processor to extract its essential para-* 
meters* These parameters can be used to synthesize the 
speech at the receiving end. Speech processing algorithm* 
such as FFT, LPC and convolutions [V] need computations 
which are structured* Multiplication* shifting and adding 
are most extensively used in these algorithms* Desirable 
features of' a speech processor are discussed below* 

1 ) Word Length s A basic word length of 16 bit is 
required for speech processing, A lower word length would 
fail to extract the essential features of speech* The 
reasons are (a) speech signal of 10 to 12 bits is needed t© 
provide enough dynamic range for parameter extraction and 
( b) the truncation errors due to fixed word length distort 
the result considerably thereby making the parameter extraction 
impossible* A higher word length does not contribute to 
enhance the output of the system. 



2) Arithmetic s In te Mediate calculation* such at 
aum of products, in speech processing have to fo© carried 
cwt with 32 bit precision. Hence an ALU of 32 bit or a 
facility to do double precision arithmetic is a deslra &« 
feature of speech processors, 

3} Separate ifolti oiler t Speech processing a Igorithw 
need a large number of multiplications. Hence a separate 
multiplier to give a 32 bit product in one or two machine 
cycles is an essential feature of any speech processor. If 
the ALU is 16 bit, then a multiplier accumulator Which can 
do a 16x16 product and add the result to a previously accumu- 
lated sum in a single machine cycle becomes a desirable featur® 
of the speech processor, 

4} Separate Data and Program Memory : Separation of 
data memory and program memory thereby providing two separate 
bus®#, provides instruction fetch and instruction execution 
to be done simultaneously. This improves upon the speed of 
the processor which becomes the slower of the two. Since in 
speech processing, speed of the processor is of prims concern# 
the practice of separating data and program memory has become 
a standard, 

5) 5®guorgeg s A sequencer providing good branch and 
jump capability provides an efficient way to run the program* 
which are quit© structured. Another desirable feature of 
the speech processor is to have a sequencer with enough stack 
depth of provide nested subroutines. This greatly helps in 
developing speech processing packages by separate teams. 




6) Speech usually is the input and 
output of the speech processing system* Hence* an analog t© 
digital converter and a digital to analog converter are 
needed as peripherals . A 6 t© S bit nonlinear A^D-DJUa is 
sufficient for waveform coding of speech where exact replica 
of the speech waveform is achieved* However since parameter# 
are extracted in speech processing systems? a linear A/D and 
D/A of 10 to 12 bits accuracy is needed. The sampling rat# 
of low pass filtered speech is ft to 10 KHz, The speech 
processor is interfaced vd.tr the HOD2M on the line side with 
the help of serial to parallel converter and parallel to serial 
converter. Usual bit rate on line is 2,4 kbps and below# At 
sampling frequency of 10 KHz and modem data rat© at 2 #4 kbps, 
for a typical frame of 20 msec* there are 200 samples/frane 

on A/D - D/A side and 48 bits/frame on 3/p - P/S side# 

7) Unta. Uteory s Data memory should have a direct 
access to the ALU* During speech processing not only the 
raw data takes part in computation but also various 'constant# 
(such as #in/cot tables and log values) are frequently used* 
Therefore* a desirable feature of the speech processor is to 
have a data memory which is partly HAM and partly ROM and 
has direct access to CPU (DUA capability)* 

S) Addressing Modes : Structured data take part in 

speech processing. Therefore flexible addressing mode# t© 
access data are desirable for speech processor#. 



93 Program ^emorv i For speech processors, program 
reside# in the program memory. If the processor is micro- 
processor based then for speed considerations horizon tallty 
of the microcode is a desirable feature* Wo decoding i» 
done on the program memory out put and the program memory 
out put goes directly to different points to control 
various sect ions of the processor* This does not apply to 
VLSI bated speech processors, Physical limitations on the 
number of pin© of the processor make it necessary to have a 
smaller program memory word which is internally decoded by 
the processor to provide control signals to different section®* 

10) Speed s Real time processing of speech puts up a 

OY 

minimum limit on the processor spaed. The proeeas^has to 

complete the computations pertaining to a frame before next 

V 7 

speech frame arrives. As discussed in Section^ real-time 
speech processing involves 4 to 5 Million Instructions Per 
Second* The desirable features of a speech processor from 
spaed point of view must be seen in connection vdth it# 
architecture and its instruction set, A processor ea cable of 
running at speeds of 10 MIPS or above may not be a desirable 
one# compared to a processor capable of running at speed® 
just the half and having all the features listed above, 

3 *1 ,2 An Ideal 1 pooch Processor 

, An Ideal speech processor is required to analyze/ 
synthesize speech in real tim , It not only meets the 



requirements listed in 3.1*1 but also performs required 
computations efficiently. This helps in t m ways ~ 

(a) processor needs lesser number of cycles to execute a 
program and {b} the user can write the programs more 
efficiently • conserving tha program memory space and his 
own efforts* Architectural details of an ideal processor 
are described below. It is felt that with the current 
technology such a processor can be realized, 

1 ) QHJ : Basic word length of the ideal processor 
need not be more than 16 bits. However all the arithmetic 
is to be perfosm od with 32 bit accuracy, A barrel shifter 
to convert a 16 bit data to 32 bit data is a part of the CPU, 

A 16x16 multiplier giving 32 bit predict in one cycle and 
outputting the result to tha 32 bit ALU can be as effective 
as a separate MAC ( Multi pller * Accumulator) with 16 bit ALU, 
CPU also has to have a sufficiently large scratch pad; with 
good addressing capability, A scratch pad of length 256 + 16 
would be ideal, A length of 256 is sufficient to store a 
block of data required either for LPC implementation or for 
FFT calculations# The extra 16 words could bo used to store 
infrequently used but important ocra/.vsiors # The addressing 
of the scratch pad should be direct addressing or by one of 
the two separate registers with autoincrement/auto decrement 
facilities# The two registers would provide the capability of 
performing indexed array type calculations in an efficient 

In addition to the scratch pad described# a IKxlS data 


manner* 



memory is a must for the ideal speech processor* Hon* 
immediate data and constants reside In the data memory* 

Data memory is directly accessible to CPU* Data or 
constants stored In the data memory can directly go to 
the ALU or the multiplier. Auto increment addressing 
facility to the data memory, would provide transfer of a 
block of data or constants in the scratch pod which has 
even more flexible addressing modes, 

2) Sequencer: Sequencer of an ideal soeech processor 
would have the branch instructions depending on the accurau* 
lator status {-• 0, to, O 0 , < 0 , > 0 , > 0), a branch on zero 

depending on the address register selected for the scratch 
pad ( providing indexing and branching simultaneously), call 
and return instructions and vectored interrupts , A 12 M^vword 
deep stack is felt ideal , This would provide the facility to 
develop the software in independent modules* Vectored 
interrupt facility cuts down the hardware and software over- 
heads for data acquisition from peripherals, 

3} Program Memory:. A 4kx1 3 memory- devoted to program 

is felt necessary for the ideal processor. Though a program 
memory of 2kx1<* is sufficient for a speech processor, a 4 tact 6 
memory provides the added advantage of the program to bo 
developed in modules by independent teams. The price paid in 
terms of the access time and the memory space requirements Is 
negligible compared to the advantage of better utility*. 
Horizontality of the microcode which needs a large or o gram - 


memory has no room 


in the Ideal processor* 


4) Peripheral De.vic.e s.: 12-bit AID - D/A and 16 bit 
3/P — P/S directly hooked on the data bus with direct access 
to the CPU are essential for the ideal processor* The direst 
memory access to the peripherals on interrupts saves the 
overhead to interact with the peripherals* 16 bit S/P and 
P/3 conversion reduces the number of interrupts for S/P am! 

P/S devices as compared to 8 bit 3/P and P/S, Since the data 
bus is 16 bit and 3/P and P/3 ax© directly hooked on the data 
bus, ideal thing is to get 16 bits from or supply 16 bit® to 
the processor at a time. 

6) Speed ; 5 to 5 151 PS speed would enable the ideal 
processor to have additional features* Some of them a® 
nonhorizontallty of microcode, 4K of program memory, and auto- 
incrementing, out ©decrementing facility with a branch on 
scratch pad address register equal to zero have already been 
discussed* Other useful feature that could bo provided by 
choosing a slower speed is to provide powerful instruction® 
such as an instruction that moves data in the scratch pad to 
the next location, loads the data in the multiplier register, 
accumulates the multiplier and autoincrements/auto decrement® 
the scratch pad address registers in a single machine cycle* 
This is what exactly is done in a typical digital filter* 
Since LPC synthesis is nothing but a digital filter excited 
by voiced/unvoiced pulses, the speech synthesis time can 



greatly be reduced by such instruction. A moderate speed of 
5 to 6 OTPS also does not put great constraint on the Progsws 
memory and data memory selection. 


3 .2 ARcniT.igim~;; i 

Ock 

The basic blade di agraa of architecture 1 given by 
E.a. Hofs tetter et al 1 is shown in Fig. 3.1 . The 
nucleus of this system is the BP... which is based on the AM 2901 
[2D microprocessor chip. All instructions are executed in 
a 150 ns cycle except the multiply which requires four machine 
cycles . However, using the currently available multiplier 
chips, the multiplication time can be brought down to one 
cycle. It is a 16 bit processor and has two separate buses. . 
The I BUS and the OBU3 . The I BUS is multiplexed between 6 data 
sources, the 12 bit A/D converter, the 8 bit serial to parallel 
converter, the 16 bit memory output register U’OR) # the 16 bit 
upper and lower products coming from the multiplier and an 
11 bit field coming from the instruction register. The data 
memory consists of 2K-1 6 bit words, 1 ,5K of which are ROM 
and contain various look up tables. The I -bus acts as an 
input to the DPI. The output of the CPE i® channeled . to 
one of the six registers. These are A/A converter, parallel to- 
serlal (P/S c env :.vrter, the memory btsffer and memory address 
registers (MSI and MAR), and the multiplicand and multiplier 
(MOD and MPR), registers of the multiplier. 
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Data memory and program memory are separate* Program 
memory is IK x 43 bits* This allows parallel operations of 
the control section (accessing next microinsiruetl on) and 
of the execution section, ( perf orming calculations) • Output 
of the program memory is clocked into a microinstruction 
register * Program memory address is derived from the program 
control logic* This is based on the AM 2909 OS rstszsa 
sequencer chip* Tho 2909 controller is driven by a 2 bit 
control line which selects the next urogram memory address from 
one of the four addresses. These addresses are last address 
plus one (continue), the latest address cn the internal stack 
(return), an interrupt address (Jump to interrupt) determined by 
the I/O, system and a jump address vMch comes from tho micro** 
instruction register (conditional or unconditional branch)* The 
jump logic thus allows for unconditional jumps* Conditional 
jumps, dop?ndlng on tho status bits coming from the CPE and 
jump® to and returns from subroutines. As the internal 
stack on Mi 2909 is .four word deep, the subroutines may fee 
nested up to four deer? when interrupts arc locked out and 
three deep When they are active. A of or once describes a 

processor built on similar lines in more details* 

3.3 AEClIXTJCIlIiE 2 

The block diagram of architecture 2 given by B„C. Shin 
©t al (Vj is shown in Fig, 3.2. It has 16 bit CPU and all the 
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instructions are executed in a cycle time of 208 ns. The 
main sections of the processor part are data memory, central 
processing unit (CPU), a multiplier and microprogram control 
unit ( ?CU) , The CPU is inter?' evi with the rest of the system 
via two buses,, an input data bus (I BUS) and an output data 
bus ( 03UC , „ The nucleus of the system is the CPU vjhich uses 
AM ''903 M bipolar microprocessor chips, AM 2903 has special 
functions such as division and double length normalization as 
compared to Ml 9901, The I bus is a urd directional tristate 
bus and is connected to one of seven data sou-'ces. Those are *» 
the input register, the A/D and serial to parallel (S/P) conver- 
ters, the micro-instruction register (MIR), the memory output 
register (MGR) and upper and lower products coming from the 
multiplier. The output of the CPU is channeled through the 
GBU3 to the D/A and parallel to serial (P/S) converters, two 
memory address ( MARI and MAM2) registers, the memory buffer 
register (MBR), the Y input of the multiplier and the output 
register. 

The data memory is composed of 2K PAM and IK ACM. The 
RAM is used for data buffering and temporary storage. The 
ROM stores various lookup tables. To enhance the data 
processing ca inability, pipe line technique is used in the 
data transfer between the CPU and the data memory. That is* 
old data can be read out while the new data memory address is 
being setup. The two address registers MARI and MAR2 have the 



autoinerownt facility, The address multiplexing and 
the autoraicrementing Is controlled by the control signal 
coming from the microinstruction register. The memory 
output can be fed directly to the X and Y input® of the 
multiplier, without passing through the r;P0. The default 
value of the address multiplexer comes from MARI # MAP. 2 
is chosen only v/hon the memory output data are routed to 
the Y input of the multiplier# Thor if ore this scheme 
facilitates the altering access of trio block data sets in 
different memory locations without additional addressing 
from the- OT'J, Accordingly, it is easy to copy or transfer 
a data sot from on a location to another, and to calculate 
the sura of products from the two data sets and \YjJ 

obtained in autocorrelation calculations. Addressing mode® 
possible are direct, indirect, indexed and aut ©increment * 

The multiplier has the multiplication time less than ' 
one machine cycle, -line a the in'out and output of the 
multiplier are fully buffered pipeline technique may be used 
for efficient multiplication (as used for accessing data 
memory} . 

Tic reprogram memory is 1 Kx53 „ The output of this 
memory is clocked into a microinstruction register and 
then executed* AM :M 10 jj?.J “re gram sequencer i® used, 

AM 2910 has 9 word deep stack. Thus a maximum of 9 nested 
subroutine calls can be made. 


Block diagram of the architecture 3 given by 
M, McLaughlin et al £5D is given in Pig, 3,3 . It is a 
16 bit, fixed point processor and uses Motorola’s 4 bit- 
slice M 10300 ti'SSL processor family parts. Vihole of the 
system uses TCL logic except a hardware multiplier. The 
basic cycle time for the processor Is 90 nsec, with a 
multiply requiring 3 cycles or 270 nsec. 

The A",” (4-M.C 10300* sj nerf or ms arithmetic, logical 
end shift operations. C -r’-; m* cut ion among the different 
parts of the processor is a chi ved via three buses labelled 
as the 0-3us, A*3us and I-Bus , The 0— Bus and I -Bus are 
bidirectional. In general the 7 -3m and A-3us serve as inputs 
to the different sections in the a rithsmtic and data memory 
sections and the C— Bus functions as an output bus. The 
register file consists of 16 general purpose 16 bit registers. 
The registers can function as accumulators, as point rs or as 
index registers. Outputs of the register file servo as inputs 
to the ALU, memory interface and multiplier , The file can 
read two locations simultaneously. During one cycle), two 
registers can be read and either one of those two can be 
written into. This gives more flexibility than the A and B 
registers contained in AM 2901 and AM 2903. 

Data -Memory is 4Kx1 5. The I/O ports are addressed 
as a specific memory location in data memory. Address and 
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The processor has t xnxerrupx lines on a priori xizect oasis 
.ihen an interrupt is received, control is autonaxically 
transferred to one of the s.;-ven vectors in the program memory* 
rho condition coda register is a status register which decides 
the conditional bronchos in the sequencer* 

3.5 AT'Z’JTVZVJ- \ 4 


Architecture 4 given by f. Castellino at al* [V] is 
shown in Fig* 3.4, its micro-instruction speed is 32b ns. 

It has tv;o subs -actions which allow maximum parallelism. These 
sections are execution section and sequencing section* The 
execution section consists of (a, data handling subsection 
and (by address handling subsection, lines this architecture 
has four separate buses { Y, AAR, A and 11}# there is more 
flexibility to data flow. The data memories RA’4A and RAMB are 
of libel 6 each, both these memories are provided with separate 
address registers. ABBA and ADRB . AURA and ADHD, are hooked 
on the AAR bits. The AAR bits is driven either by the ALU outpu 


or by the sequencer circuit. This provides direct ad 



and iramsd: 













addressing to both the RAils , Another noteworthy feature of 

this architecture is the use of multiplier^ ~ Accumulator 

chip instead of a simple multiplier. This enables the execu- 

n 

tion of operations of the kind ^ a.b. with ease* RAISA 

i«1 1 1 

and IHAi'.iB can be loaded vrith the starting addresses of vectors; 

and b^, Then n products and n accumulations give the final 
result. Another feature of this architecture is a separate 
constants RCA vMch is used for boot’s tra oping initial data 
into the AAA, Constant riomory is 1 Axis bits. 

The sequencing section is based on Aid 2910 end has all 
the advantages already discussed in lection 3,3* The micro- 
program memory is 2Rx64 bits* 15 bit A/D and D/A converters 
and serial to parallel and parallel to serial converters set 
as interrupts to the processor. 


The architectures discussed in previous sections span 
over a period of 7 years (1977 to 1984) in which the digital 
1C technology had undergone a lot of change. There has not 
been any significant development in the basic algorithm except 
a better understanding of the LPC algorithm by experience due 
to lot of experimentation. All the hardware architectures 
discussed so far have implemented LPC algorithm in one form or 
the other though/, they are all programmable and as such any 
speech processing algorithm can be implemented on them. 



Architecture 1 is the forerunner of speech processing 
architectures using bit-slice microprocessors and has estab- 
lished the fact that real-time speech processing systems 
can be implemented* Use of separate program memory and a 
separate data memoir/? use of more than one data bus and th® 
use of a separate multiplier are the salient points of 
architecture 1 * The last ruction cycle time with th© present 
day technology may cone down below 100 ns* 

Architecture 2 improvised upon architecture 1 by using 
Aid 2903 instead of AU, 2901 as the 31'U and usln , AH 2910 
instead of 2009 os s . --cor* straight away it helped in 
better data handling capability and better program flexibility. 
However, the rain feature of this architecture is the use of 
two address registers (though multiplexed} to address the data 
memory and the Connections of the multiplier * This arrangement 
results in efficient calculat* ons of sura of products, vfolch is 
quite often used in speech processing* 

The architecture 3 is not much different from 
Architectures 1 end 2, The 15x6 bit register file gives slightly 
better data handling capability than the A and B registers 
(15x16 bit} contained in AH 2901 and AH 2903, However, this 
advantage is off set tod by 20 bit. wide program memory. In the 
absence of the date oh/ets for the chips used in this processor 
not much comment can be made. 

The architecture 4 comes up with many new ideas. Use of 
multiplier-accumulator chip mates the computation of sum of 
products even simpler. The two address registers which have th® 



capability of autoincreraont and can act upon two array? 
oak©# the architecture very powerful. The third new idea* 

<9 

was the us® of a sera rate constants ROM which can be loaded 
Into the data memory when desired to perform array type 
calculations. Use of AM 2910 as the sequencer gives nested 
looping upto 9 level deen. This is certainly much better 
than the facility provided by a 4 word de©o stack in archite- 
cture t , The speed of the processor is 325 nsec per micro- 
instruction with respect to the component technology of 1979# 
Speeds of the order loss than 200 nsec are possible using the 
current technology. 


3.7 ATCIilTiCTtn'i Cl 
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Block r'*-rrrr- of Texas Instruments Signal Processing 


Chip IMS 3201 0 which is very much suitable for real tin® speech 
processing applications is shown in rig. 3.5. IMS 32010 ha§ 
two separate buses* the chief bus and the program bus. Both arc 
16 bit vd.de. 31 nc® the program memory and data memory are 
separate* a full overlap of instruction fetch and execution 
is possible, System clock cycle is 2; 0 ns and most of the 
instructions need o no clock cycle for execution. Details of 
the TAi 32010 architecture- are given below. 


7 'T*** **'* 4- * ,#** *" r 7 . *$* 

The ALU, the accumulator* the multiplier and th® 
shifters are main basic arithmetic elements, ‘All arithmetic 
operations are performed using two's complement arithmetic* 
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FIG. 3.5 BLOCK DIAGRAM OF TMS 32010 






























The ALU can perform arithmetic and logical operations* 
Arithmetic operations are performed on 32 hit word, whereat 
the logical operations are performed on 16 hit word, While 
performing logical operations# the upper 16 hits of the 
aceumilator are forced to z >ro, When the data to the ABtf Is 
from the data memory and arithmetic opexat) on ie to be performed* 
Shifter ( 0-15) cornea- into picture, Input to the accumulator 
la thua a 32 bit word with full sign extension and with given 
shifts vdth respect to the Addressed data memory word, 32 bit 
wide accumulator can be stored in two words of the data memory* 
The lower 16 bite of the accumulator can bo stored separately* 

A ahlft of 0 V 1 or A can be given while storing the upper 16 
bits of the accumulator, .Though the ttoxe takes place with 
the shift v accumulator remains unchanged* 

The 16x16 bit multiplier ?ivee the 32 bit product and 
makes it available in P register* The multiplier output lo 
the product of the contents of the T register and the data on 
the data but* addressed from the data mamory* Provision is 
also there to multiply the T register contents with a 13 bit 
sign ad constant* Instructions are available to multiply and 
accumulate* Thua calculation of cum of products can efficiently 
be dene* 

The processor has a provision to altar the result £ f an 
overflow occurs* A control bit called OVM (overflow mode) bit 


can be set or reset by software instructions* If an overflow 
occurs when OVM is set, the most positive or the most negative 
representable value of the ALU is loaded into the accumulator* • 
• <hen an overflow occurs when OVM bit is reset# the accumulator 
is unmodified, OVM mode is equivalent to clinpin.'i* This 
facility is very useful in speech processing* 

The accumulator overflow is stored in a separate bit 
which form the part of status register* Various types of 
branches on the accumulator stains (<0, 4, O f vo, y 
end “ 0) are possible, 

3 ,7 ,2 beta Memory and Auxiliary Registers 

Data memory consists of 144 words of 15 bit. All 
non-immedia te data operands reside in data memory* Provision 
is there to load data into data memory from program memory 
and vice versa by TBLH and TBLY* instructions, Data can also 
bo read in the data memory from peripheral devices. Content* 
of a data memory location can li Joe vise be transferred to a 
peripheral device. Provision is there to connect upto 8 
input/ output devices to the external bus. 

Data memory can be addressed in a number of rays* 
Address to the data memory is either from the array register** 
ARC and AH1 or from the microinstruction itself, DP is a 
data page pointer which con be loaded with 1 bit constant* 

DP is' a part of status word. In the direct addressing mode# 
the address to the data memory is given by DP and the micro* 
Instruction word bits 0 to 6, Page 0 contains data memory 
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location* 0 to 127 and page 1 contains data memory locations 
128 to 143* In the indirect addressing nods t he address to 
the data memory is either from ARO or fre* AR1 * ADO and 
AR1 as* 16 bit registers which can be read or written, ARP 
is array register pointer and ferns the pert of status word* 

It can ba read or written by the ays tea. The lower nine 
bite of the array registers act as an up down counter. 

The ARP selects the array register far indirect addressing* 

If ARP I* 0 than lower 6 bits of A no provide address te the 
data memory* While performing an operation using indirect 
addressing* 1 he concerned array register can ho either those* 
wonted er decremented and the ARP can be changed* This 
provides the fSseility of indexed array. Branch Instruction 
9f£k whith aliens the branch whan auxiliary register is net 
sere is else helpful in providing loops in the program* 
tie auRlltsry register can alee ha need aetwe tsapeaary 
ttsrsgs location^, 

, \v ■■ ■- 

s * 1 ' " * * 

3*7*3 r - Trnn Cornier and J ltasK 

^ - The instruction fetch pert of the protector contains 

the program counter (PC) and the stack* Program memory is 

* 

always sddxessod by the contents of the PC* Stack it fens 
word deep* Program counter usually points te the on* higher 
vs hie of the last PC waive except In the case* of jttsnpe* 
returns* sell and interrupts. For the returns* the addreet Is 
supplied by the top ef the stack* For eosvlcing the interrupt 



the VC it eat to 2, Any jump or toil address it supplied 
by tht program but to. the PC, 

7 

3*0*4 Per char* la^^snd P-mocam Jk aaor* 

IMS 32010 hot o single interrupt which always points 

SOd-ov»4 

to scat loco ti on in tho program memory, Added to it there 
is o BIO pin vhich when zero causes a lump on inotzuetion 
BIQZ, Thuo tho status of a poriphsrai ton bo monitored 
ot Sfo pin and a sultablo action cm be token. During tho 
IN and OUT instructions the protestor supplies the page 
address across A11 «*ac/PA2«pao lines. At that tine the 
omtornsl bus is . released so that data transfer takes 
plage via external bus* A total of a input and $ cut put 
devisee east bs hooked on tho external bus* 

tNi 3201 0 supports 4K oxtesnal ptogwn Mary eddrssitd 
by Ati«<AC/l*2~PA0 Unas* The pr a gm a nanaxy In ueuel praetiea 
-,li"#1I^RQM eoabinetion* Since data asm be read from and 
Milan an the program memory* I/O opt rations can ba par# atm < 
by the pro g r am memory itself * Memoriae with access time 
ti»« then 100ns ere recommended for the TMS 32010 proeaeaer* 

3 *8 Belt waaoka of IMS 3201 0 aa an S peech Prawaaewm 

TMS 32010 provides many good features of an ideal 
speeeh prooesaor. However tome of the drawbacks ate 
listed Mom 



! ) In-sufficlent : ata memory* Sine* the CPU hei 
direct secess only to the data memory* It It not possible to 
Intone t with the port ph oral dovlooo without any «mh«i« 

The spoeeh applications in which a block of aptoch data la 
to bo processed (say for example FFT of 256 real templet) 

thte overhead bee cnee too much* Pzovition it there in the 

* 

software to expend the internal data memory upto 8 pages* 
Internal data memory of the order of IK is ideal for speech 
protesting and^TMS 320* a later versions would not have 
this handicap • 

2) Insufficient stack depth* In reel tint speech 
processing a four deer stack Is usually insufficient .TBUt 
and TBUtf epe rations practically limit the steed* available in 
TMS $2016 to o depth of three* In speech processing 
applications it is not uncommon that different eubtaske ate 

t 

handled by different group of people* For example a vo ted or 
System ean be divided Into three eubtaske* (1) analysis of 
Vital tat at filter parameters* (2) analysis sf excitation 
pa remoter* end (3) synthesis of a peach* In a situation Ilka 
this# managing with a four deep stack becomes difficult and 
the user has to be much careful while using the stack* Thera 
la a prevision to expand by softvsre the stack Into data 
memory* However* It again needs overhead which sen ha 111* 
afforded In reel time speech processing* One withes that it 
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future, a chip with IMS 32010 architecture It avail* bit 
with sore stack, 

3) hwr interaction with I/O deviates nftth tw 32010 
utar hat «U tha fas ill ties onca the signal It IwlO tha 
data nenery, Slnaa in TMS 32010* a arehitaetnra CPU cannot 
access any outside data, the overhead tine to acquire data io 
too large* 
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CHAPTER 4 

ASSEMBLER FOR TMS 3201 Q 

4 

4,1 I PRODUCTION 

In this chapter the design aspects of an assembler 
for TMS 32010 are outlined. Function of the assembler Is to 
translate a source program written in the assembly language 
to the machine language, Basic aim of this assembler is to 

produce Object code for TMS 32010 efficiently, Modular 

* 

programming technique has been followed while writing the 
assembler,.. Adequate documentation is provided for an 
interested user to understand the assembly process, 

/ * “V . 

In Section 4 - - format of executable instructions is given. 
Secti on . J j .- •, explains the pseudo-operations provided in this 

’ ' , r 

assembler. The assembly process is discussed in details in 
: ^-'eOtlon.4,4 , Section 4-5 shows how to use the assembler. 

Error messages given by the assembler show the exact nature of 

: &0 error in the source program, and thus help the user to 

Hr 

write the correct program efficiently. These are explained in 
Section 4 >6 . Section 4.7 gives the conclusion. All the 
assembly language instructions of TMS 320 have been implement®' 
and tested carefully. 
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4 .2 ^HCUT.^L.i INSTRUCTION FORMAT 

The TMS 320 assembly language is line oriented.' 

Each* source statement is a combination of the following 
four fields* 

( 1 ) Label 

(2) Instruction Mnemonic 
( 3 ) Operand 

(4) Comment. 

These fields are described in detail in the following. 

• The source file statements must be unnumbered. The 
Iftbel field is the first field of the source line and starts 
at the first column of the source line. Fixed format is 
followed for. labels. All labels are of two characters'. First 
character of the label is an alphabet and the second character 
of the label Is a number. Label is terminated by a colon. 

... / The instruction mnejnon c field follows the label field 
♦nd is separated from it by at least one blank* .Then there is 
no- ' label the instruction field must not start before the fourth 
column of the source line* 

The operand field follows the mnemonic field and is 

separated from it by at loast one blank. '.Then two or more 

’operands appear in a statom.nt they must be separated by atleasV 

one blank and must not contain embedded spaces • I;’ TMS 320 

on 

assembly language some of the operands are optijrtal. Exactly 



the same amount of flexibility is provided in this assembler 
as given in the user's manual £l3 • Operand field Tor the 
br.r'ch and call instructions must bo a symbol having the same 
syntax as that o? the lrbal stated earlier. The numbers in 
the operand fi :;ld are decimal numbers, '.hen negative numbers 
are encountered (as in i.lPYK or in instructions) a 
oi^n followed by blank is put before the number . 

The last field in any statement is the comment field . 

Comments are strings of characters vhich are inserted in 

the source program to identify or clarify the individual. 

bw 

statements or program flow. Comment field is optij/bl. It is 
separated by the assembler syntax expression by atleast one 

I 

blank and starts with a semicolon. This ftold is ignored by 
the assembler but is included in the listing. Appendix A 
shows the format of an instruction. 

4.3 PSiiruO-OPERATIONS 

GRG and ZEQ pseudo-ops are provided. Pseudo-ops 
cannot be labelled. Pseudo-ops appear at the place of 
instruction mnemonic of the executable instruction.. They have 
the operand field and also have optiJhl comment field*. 
Pseudo-ops are not executed by the machine but are interpreted 
a« follows* 
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01 V. snr.-cl *i ::s -tr -;j pr ogrnr.i loc^t* or. counter 

v"-lu 3 from where the following entries in the assembly 
innqunge source program a r_* loaded, '!o default value of 
tie program counter is provided, Operand of Cm'j pscudc-op 
is the decimal value of the program counter from where the 
following source program is to be loaded. 

Besides storing the program, the program memory of 
Ti>& 320 is also used to store constants, look up tables and 
data values, Z2Q pseudo-op provides the facility to load 
these values. Operand field of the ZEQ pseudo-op & a string 
of decimal numbers which are to be loaded in the subsequent 
locations of the program memory, the numbers in the string 
ace separated by atleast one blank. 



Format of the assembly language syntax is same as ■ 
the format given In 0 J „ This is given in Appendix A as 
an aid to the Interested user.. Pseudo-ops provided in this 
assembler are also listed in App endix. The special 
symbols used tn this appendix asa listod. after Table 
of 'Contexts, . 





FIG. 4-1 


ASSEMBLER FLOW CHART 














Firm tp 4,1 shows the flow-chart of the Two Pass 
ass k bier. Functions done in Pass One are: 

1; Reading a line of the source program, 

?) Processing the line - Processing includes generation 
of label table by the label field, coding of the 
instruction, including the branch instructions having 
backward references. 

3) Writing the code/error message/ "orward reference 
in PAS1 file and copying the source program. 

Functions done in Pass Two arei 

1) Filling up forward referenced branch addresses, 

2 ) Entering the complete PAS1 title including source 
program in user defined file* 

"OK M is an error flag which is reset if any error occurs 
during Pass One. M and I shown in Fig. 4,1 are variables 
used for the source program line number and number of labels 

ft H 

in the label table respectively. LC is the program location 
counter. Care has been taken to develop the program in 
modules, ' One line, terminated by CR, of the source program 
is processed at a time. Procedure "GETLINE" copies a line 
of the source program. Procedure "GETSW" scans the 
internally stored line till a nonblank character is encountered, 

CXVx 

AftiCHith^^t^eterts; copying the. Information in -&**- array 

blank; -i*,eoe cun t ere d. This procedure 
i#. ediy '.while;. processing a line. The information 



58 


can be L'bol, n mnemonic, a pseudo-op, an operand or an 
end of line, beginning of the comment field or 
viiichevor occurs ^irst is tr.-nted as end of line rnd is 
excluded from the ass.oirhly process. 

If the symbol happens to bo a valid la’al then it is 
searched in the label table by procedure "U.U.. V. Laoel 
t-ble is defined as an array .•'LTJiL) o' tv.o dimensions. If 
the symbol is found then same symbol has been used twice. 
Therefore an error message is flashed on the terminal and 
further assembly of that line is aborted, after registering 
the error message in PAS1 file. If the symbol is not found 
then it is entered in the last location of the label table 
as a new entry by procedure "IhSiRT” , The size of the label 
table is incremented by one and the value of the label is 
set to the current LC value. Linear search of the label 
table is carried out and hence a restriction of 20 labels is 
imposed on. the ‘user 'to keep the assembly time reasonable. 

The symbol next to the label or the very first symbol 
In the line in the absence of a label is a mnemonic or a 
pseudo-operation. Mnemonic, and pseudo-ops are declared as 
a record Y, This record Is arranged in the alphabetical 

order, A binary starch of this record it made, A total of 

* 

mnemonics and pseudo*ops are present in the assembler, 

'A .wpxet pee* search of 6 is needed to pinpoint a 
particular mnemonic cr'*; pseudo-op, A case statement then 
l, m&ml .to a definite procedure. The 

: -V ’.%*& th‘e use of case statement reduces 



th '. ogs . lly t*mo. iach mnemonic or n sou dcy o ?o processed 
by r * separate procedure whose name is Identical to the 
mnemonic or pseudo-op v;5th a prefix I . T’is qi ves better 
readability to the assembler program, for :xa.ple, nn or on 1c 
processed by procedure I -ADD. 


Attempt has been made to enebdo an instruction as much 
as possible during Pass One itself. The branch instructions 
which have bac kward. ref ex encos are also fully encoded, 
brand! Instructions with forvjerd references put the symbolic 
address preceded by * in place of object code. 

Appendix D contains the Pass One listing with an example of 

ll 

forward referencing. This is fitted in during Pass Two 
when all the labels are declared. The assembler creates a 
file called PAS1 during Pass One , As soon as the 
processing of a line is ever the program writes the object 
code in PAS1 file. If however an error is encountered while 
processing a line, error code iRPX, is put in 

place of the object code ( APPB . Along with the object code 
or the error code (as the case may be ) PLC value in hex and 
line number In decimal are recorded. Full line as written 
In the source program Is then copied after the PLC value in 
PAS1 file. Pass One continues to encode the source program 
till the program ends, even ir£ an error has been encountered 


in nm. 

If On* Is error free then execution of Pass Two 





'PUMh Two only the object code position 


at the first c lumn pnd 



Go 


a blank ^ n the fourth column is met-* search for the label 
given by the second and third column is mode in the label 
to bio . 7' the label is found then the value corresponding 

to the lc’^el is entered in object file. Entries of PA31 
:* le dong vi dr, the lass Two modi 'ice l' ons ore entered in 
the user defined object file* 

A.- MO'., TO US-~ Hid .lild. dd 

The user has to run the assembler program to start 
the assembly process. The asserteler prompts the user to 
provide the innut file name of upto six characters rs - 

1 give input file V ;oooo:x 

V.hen the user has provided the name of his input 
file the assembler reads it in the packed array MINP£f]*' 

MIHF . IT the file name happens to be of less than six 
characters, the NINP j~f] - 'JIMP array is left justified 
and added with blanks on the right* A standard extension 
for the input file. is IMP* This name is then attached to 
the internal fine name "FIMP" by the assembler. Assembler 
then prompts the user to provide the output file name of upto 
s lx • cha ra cte rs as - 

^ ■?*> '* ‘ t r* V . ' ' . v 

‘GIVE ; p^rpyi ms MAWc XXXXXX 

, -?v - fv , '>>*». ’ 5 ’ . ' 1 

I#- *<» the-; hi provide d the name ef hie output, file 
the assembler * easts itlrvthe paeked array MOUP [j] «. MOUP [ J. 

jfeHMftf 3eee than six characters, 
array is left justified and added 
# A standard extension for the 
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output file is OBJ « This name Is then attached to the 
internal file name "FOUP" by the assembler. 

Standard PASCAL provides facility to open Hie text 
files 0*3 * Text files are files that consist^ of a sequence 
of characters that are subdivided into variable length 
11ms, The predefined type "TEXT” is used to declare text 
files. 

Handling ©f the text files is very much similar t© the 
handling ©f INPUT and OUTPUT files, PASCAL statements for 
these are given belowt 

WRITE (F* Ch) - Write a character variable In text file F, 

REAS (F # Ch) «* Read a character variable in text file F, 

WRITELN (F) * Terminate the current line ©f text file F, 

REABLN (F) * Skip to the beginning of the next line of 

the text file F, 

EOLN (F) ♦ a Boolean function indicating whether the 

end ©f the current Hue in the text file F 
has been reached, 

RESET (F) «► Initiate Inspection (reading) of F, 

REWRITE (F) - Initiate generation (writing) of F, 

The PASCAL compiler available on DEC system-10 at IIT 
Kanpur C&3 has attended forum of RESET and REWRITE statements* 
It provides the facility to set up correspondence betmen 
the file designators and actual files* Statements used for 
this purpose used in the assembler to define the input file 
and the output file are* 
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RESET (F. file name) I F corresponds to file name# initiate 

inspection of F. 

REWRITE (F, file name) * F corresponds to file name initiate 

generation of F. 

Other extensions to RESET and REWRITE statements are not 
used and hence the files inspected and generated are restricted 
to user* s area only. 

After the user has provided the input and output file 
names# the assembler assembles the source program provided by 
the input file. Errors during Pass One are flashed on the 
terminal. If no errors are encountered in Pass One^ then 
pass two is carried out automatically. If any error is 
encountered during Pass Tv© the message is again flashed on 
the terminal. 

Assembler output is given in two files* PASt file 
which is created by the assembler for intermediate operations 
is available to the user for inspection. This file is useful 
for the correction of errors in the source program. Final 
output is in the user defined file with an extension OBJ. In 
case any errors are detected in the source program the user has 
to correct them and rerun the assembler. 



The assembler not only does the basic function of 
translating the assembly language source program into machine 
language program but also points to specific errors in the 



source program. Since the assembly of a line is aborted 
once an error is met, the error indicated by the assembler 
is the very first error in that line. Assembler obviously 
points out the syntax errors only. Erroneous lines in the 
source program are highlighted by adding *SDCX* characters 
after the error message. Errors can be recorded by seeing 
the terminal while assembler is assembling the program or 
they can be read from the PAS1 file created by the assembler. 
Error messages and their meaning is listed in Appendix B . 


4.7 


Sim 1 


The assembler produces correct object code for all 
valid instructions of TMS 320 . It is a very basic assembler 
but at the same time is good enough to enable the user to 
write application programs to fee run an the simulator. 


of the la feel table is fixed but can easily be changed to 
incorporate larger nusfesr of labels in the source program. 
Adequate documentation is provided to male the user understand 
the methodology adopted during assembling. Any further 
additions to the mnemonics ( due to future developments in 
TMS 320) can easily be carried out as the structure cf the 
program is modular. For further details user is advised to 
refer to the user's manual for TMS 320 ][t]. 
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5.1 mmwm 

Simile tl on is a very widely used technique. However* 

simulation erf a complex processor as a tool for software 

development is of recent origin. Advantages of the simulator 

are ease of software development* testing and modifications* 

Main aim of the simulator for TMS 32015 is to provide the user 

at IXT Kanpur a facility to develop speech processing algorithms* 

test them and modify them. User has almost all the freedom 

for software development as if he were working with a H/W using 

TMS 320 processor * The simulator program uses the TMS 32010 

object code developed by the assembler described in Chapter 4* 

es 

Input and output fil/i, may be associated with the port address 0 
of the I/O instructions in order to simulate I/O device which 
will be connected to the processor* The interrupt flag can be 
set periodically at a user defined interval for simulating an 
interrupt signal* Before Initiating the program execution* 
break points may be defined and the trace mode may be set up. 
During program execution* the internal registers and memory 
of tiie simulated TMS 32015 a re modified as each Instruction is 
interpreted by the computer* Execution Is suspended when either 
a break point or an error is encountered* Once program execution 
is suspended* the internal registers, and both the program and 
data memories can be inspected and/or modified. Provision is 



made to Iced the program, constants and data In the program 
memory using the output of the assembler* A plot facility 
is provided to plot the contents of the program memory from 
one location to another c location* The plot can be seen either 
on the terminal or a hard copy can be obtained on the printer* 
Section 5*1A gives the details of TMS 320 from a programmer’s 
point of view* Addressing modes of TMS 32010* various instructions 
of TMS 32010 and care to be taken ishile performing certain instru- 
ction is also brou^it out* The function of B?0 * I!$T3yfUPT and 
RESET pins of TMS 32010 is explained* Section 5*2 gives the 
simulation procedure. It outlines the steps taken in the 
simulation program, design aspects of the simulation system 
are given in M&&S8UUL* Section 5.3.1 through 5.3^9 contain 
the general design aspects* integer arithmetic, design aspects 
for interrupts, load, I/O ports# plot# trace, break points and 
deposit and display facilities* Secti on 5^4 ©name rates the 
special features of the simulator. Section give® in details 
the method of using the simulation system. Sesl^QfiSjS concludes 
the chapter with conclusion, 

MskM Mm 

TMS 320 is a signal processing VLSI chip. It has powerful 
Instruction set# flexible addressing modes and other facilities 
(such as clipping the AttJ result to positive or negative maximum) * 
TMS 3201 O’ a salient points fro© a programmer^ view point are 
described below. Per details* the user is referred to \jl 3 * 
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Addressing Modes - Three main addressing modes are available 
with the IMS 32010 instruction set-direct# indirect# and 
immediate addressing. In «®^« n bit « of th ® 

instruction word concatenated with the data page pointer (DP) 
form the data memory address. the data 

memory address from the least significant eight bits of one 
of two auxiliary registers# AEO and ARt, The auxiliary register 
pointer (ARP) selects the current auxiliary register. The 
auxiliary registers can be automatically incremented or decre- 
mented in parallel with the execution of any indirect instruction. 
In immediate addressing data are derived fro® part of the instru- 

ction word. Depending on the situation dhta is % bit# 8 bit or 
13 bit. Examples of these addressing modes are shown below? 

1) ADD £ 5 - 

Add to accumulator the contents of memory location 9 
left-shifted by 5 bits (DP » 0 assumed}# 

2) ADD 8 |* 

Add to accumulator the contents of data memory 
address defined by contents of current auxiliary register (AR), 
This data is 18ft— shifted $ bit before adding* The current 
auxiliary register is autoinc rene nfced by J,* Auxiliary register 
pointer is loaded with a value 1 after execution (i.e. ARP « 1). 

3) LARK ARO K 0 < K £255 - 
ARG it loaded with constant K# 

a ter Instructions * Since the accumulator of TMS 3201 0 
it and the data bus is 16 bit# Side variety of accumulator 
tions are available# A shift code is associated with the 



AUK* SUB and LAC instructions which specifies the number of 
shifts given to the contents of the data memory before forming 
a 32 bit word* The shift is an arithmetic shift and sign 
extension is provided. Logical operations such as AM), OR, XCR 
are available. Logical operations are performed with the lower 
16 bits of the accumulator, Hi$ier 16 bits of accumulator are 
forced to zero %Mie doing logical operations. One can add to or 
subtract from higher order bits of accumulator with ADDH and SUBH 
instruction, 16 bit arithmetic can also be performed using 
ADDS and SUBS instructions. The result of an arithmetic operation 
which is usually 32 bit can be stored in a variety of ways such 
as store low order or hi# order accumulator bits (SACL, SACH), 
High order accumulator bits can be steedd with a shift of Q # 1 
or 4 bits, Condi tional subtract (SU9C) instruction is useful 
for division. 


- Various branch Ins tractions to provide 
bra rching depending on Hie accumulator condition are provided in 
TMS 320, These are BLZ (<0) f BL£Z (4 0), BGZ (>0), BffiZ ( > 0) e 
BMZ (j* 0), and BZ (»0). Unconditional branch (8), branch on 
over flow (BV) and branch on auxiliary register not zero (BANZ) 
are other branches, Brandi on over flow, apart from branching 
on over flow, resets the over flow flag. Over flow flag, 
when set, cannot be reset by any other method except by the BV 
Instruction, Even a RESET signal does not alter the overflow 
flag, BAKZ instruction dscremenfes the current auxiliary register 
by 1 each time the branching takes place, CALL and RETURN are 
the usual Instruction to call to or return from a subroutine. 






Branch instructions are executed in 2 maehine cycles and occupy 
tv® word of program memory* 

SgJM&M&am, * The 16x16 - bit pipe lined multiplier 
consists of three unites the 16 bit T register (TR). The 32 bit 
P register (PR) and the multiplier array* In order to use the 
multiplier* the multiplicand must first be loaded into TR from 
data RAM by using one of the follovdng instructions IT* LTA or 
LID. Then the MPY (multiply) or the MPYK (multiply immediate) 
instruction is executed. If the MPYK instruction is used the 
multiplier value is a 13-bit constant derived from tee MPYK 
instruction word. This 13-blt constant is right Justified and 
sign extended , After execution of tee MPY or MPYK instruction, 
the product will be found i n PR, This product can be added to# 
subtracted from, or loaded lute tee accumulator by executing 
one of tee following instructions! APAC f SPAC, LTA, LTD or PAG. 

There is no way to restore the contents of the P register 
without altering other registers. For this reason in tee TMS 3201 0, 
an Interrupt is delayed until tee instruction following tee MPY or 
MPYK instruction has been executed. Thus, tee MPY or MPYK 
Instruction should always be followed by instructions that 
combine the PR with tee accumulators PAG, APAC, SPAC, LTA or LTD. 
This must always be followed as a logical consequence of the 
TMS 32010 instruction set. 


Contents of data raenory location! 


can be copied into next location by DMOV instruction. Input and 


output of data to and fro® a peripheral is accomplished by tee 


IN and OUT instruction. Data is transferred over the 16 bit 
data bus to and from the data memory in two machine cycles, 

8 input ports and 8 output ports are available with TMS 32010, 

The three multiplexed LSBS of the address bus* PA2 through PAD 
(Fig, 3,^) # are used as a port address by Hie IN and OUT instru- 
ctions, The remaining higher order bits of the address bus# AJfiJ- 
through A3# are held at logic zero during execution of IN and OUT 
instructions , 

Ihe TBLR and TBLW instructions allow words to be transferred 
between program and data spaces* TBLR is used to read words from 
progra a ROi^RAM Into the data RAM, TBLW is used to write words 
from on-chip data RAM to off*«Chlp program RAM, TBLR and TBLW 
need three cycles for execution. Temporarily# the PC value is 
pushed into the stack and table address is loaded in PC# Therefore 
care about the stack must be taken while using TBLR and TBLW 
instructions* „ TBLR is useful for reading coefficients that have 
been stored in Program ROM# or time dependent data stored in 
program RAM. IN and OUT instructions need two machine cycles for 
execution whereas TBLR and TBLW need three machine cycles for 
execution- 

• The om register Is directly under 
program (Fig, 5*1) control* It Is set by 30VM instruction and 
reset by the ROVMs instruction* If an over flow occurs when set# 
the most posl Uve or Hie most negative representable value of the 
ALU it loaded into the accumulator* Whether it is most positive or 
the most negative value is determined by the oyer flow sign* If an 
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over flow occurs when reset, the accumulator remains unmodified, 

PISH and POP instruction pish the stack from accumulator and 
POP the stack to accumulator respectively. If there is a stack 
over flow, the deepest level of stack will be lost. If the 
stack is overpopped, the value at the bottom of the stack will 
be copied into higher levels, until it fills the stack, 

Usm&Jul sfcow* the status register bits, "(££* is the accumulator 
overflow flag. Zero indicates that the accumulator has not over- 
flowed , One indicates that an over flow In accumulator has 
occurred. The BV (branch on over flow) instruction will clear 
this bit and cause a branch if it is set, " OVlff 1 is the over flow 
mode bit. Zero means that overflow mode, described earlier, is 

enabled* The SGVM instruction leads the QVM with a © m and ROVM 

a r __ 

loads the om with zzero, " INBF is the interrupt mask bit. 

Zero means an interrupt is era bled, Omj&mam the interrupt is 
disabled. The HINT instruction loads to INTM bit with fzerof 
DINT loads the INTM bit «4th a one, Ihei* an interrupt is executed, 
the INTM bit is automatically set to one before the interrupt servic 
routine begins, " ARP is auxiliary register pointer* Zero 
selects AR0, one selects AR1, The ARP can be changed by MAR or 
1ARP instructions. It can also be changed by instructions that 
permit indirect addressing option, "DP” is the dates' memory 
page pointer. Zero selects fist 128 words of data aenory, i»e, 
page zero. One selects last %$ words of data memory, i.e, page 
one. The DP can be changed using UBP or U>PK instructions. 

The contents of the status register can be stored In data memory 
by executing the SST instruction. The 1ST instruction reloads 
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the status register* vdth the exception of the INTO bit* 

The INTM bit cannot be chained through LSI ins t met ion. 

Bio. INTERRUPT AMD RESET - The SB pin on TMS<32010 is an 
external pin which supports bit test and jump operations, When 
a low is present on this pin, execution of BIOZ instruction will 
cause a branch to occur. 

The TMS 32010 Irrterryot is generated either by applying a 
negative going edge to the interrupt pin or by holding the interrupt 
pin low. If the interrupt mode register (INGTM) is set* then an 
iniemal interrupt signal becomes valid, Ihia causes a branch to 
location 2 in program memory. The interrupt servicing is 
delayed in each of the following cases s 

t) Until the end of aU cycles of a multicycle 
instruction# 

2} Until the instruction following the MFY or MPYK 
has completed* execution* 

3) Until Idle instruction following HINT has been 
executed ( when interrupts have been previously 
disabled}* This allows the R2T instruction to be 
executed after interrupts bee was enabled at the 
end of an interrupt routine. 

The Reset function is enabled when an active low is placed 
on the Is pin for a minimum of five clock cycles* The PC is 
Cleared and interrupts are disabled* The over flow mode register 
(OV) remains unchanged on Reset* 
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5,2 SIMULATION PROCEDURE 

The simulation program treats TTY as the console for 
the user. The main simulator program which directs the program 

\* if 

flow to CMDPRDC procedures and after completing the desired 
task comes back to the console mode Is reproduced below! 


begin 

INXTBRKf CMDTABLEj 

ELGIR * false* INTRFLGs * false* PREVINTR* * false* 
repeat 

WRITE (TTY, *>»)* BREAK (TTY)* 

GETLINE* GETSYiff 

if SYM * IDENTIFIER then CMDPBQC 
els® ERROR 

until go mam * ’exit* 

end * 

*<MXU£W* I® a procedure whith Copies the entire line 
of upto 80 characters entered on the TTY* into an Internal 
array, w GET SYM” procedure analyzes this array by separating 
symbol® * It observes the first nonblank character and start* 

t 

Copying, Subsequent characters into another array of length 8, 
till a blank character Is observed. No wild symbol of the 
simulator is more than 8 character width. If the symbol contains 
less than S characters t then remainder of the array is filled 
with blanks, A symbol can be one of the followings Identifier, 
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Number, Slash, Line end and Undefined, GETSYM procedure 
returns one of them and in case symbol is a number it also 
returns ^/Ath the internal value of the number (i,e, integer 
representation, discussed in Section 5,3), 


If the symbol is a command identifier t fIow of the 
simulator program is directed to procedure "CSDPROC* , 
lists all the commands accepted by the simulator, A binary 
search of command table is made to pinpoint the command. If 
a valid command is found, then the case statement direets the 
flow of control /© serve f/that comma id. 


Modularity of the program enables to break the problem 
into smaller tasks. After completing the desired task, the 
simulator returns to the simulator prompt mod© until a logical 
termination ©f the simulator is asked by the user by giving EXIT 


as the command. 


"EX* and "GO** commands listed t«* the Table 5,1 are for the 

Stove ct 

single step or continuous execution of the program traded in 
the program memory and pointed to by the contents of the program 
counter. The GO procedure calls the execution procedure repeatedly. 
The steps taken by the simulator to execute Instructions continue 
ously is explained below with the help of the flowchart shown 
I n Pio, 5,2, It is assumed that the program is already residing 
in the program memory and the program counter contains the address 
from where the program begins. 
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command 

BRK 

bepqaia 

DEP1P0HT 

DEPPROG 

DEPREG 

disbaia 

DISQPORT 
DismoG 
DISH EG 

SX 

EXIT 

QO 

INTR 

load 

LSTBRK 

PLOT 

REMBRXK 

remtrace 

m fSQHBFF 

»% J, 

SETTRACE 


mjy, 

S IMULATOR OOIfAW TASI^ - 

ACTION 

Set break point table 
Be posit in data memory 
Deposit in 2 PORTS 
Deposit in Program Memory 
Deposit in Registers 
Display Data Memory 
Display 0 PORTS 
Display Program Memory 

y 

Display®- Registers 
Execute One Ins true t ion 
Sipp Simulator Program 
Continue Execution 

Interrupt made active at user defined interval 

Load Program Memory from a File 

List all the breakpoints 

Graphic representation of Program Memory 

Rerxnre break points 

Remove the Trace Points 

Reset the Processor 

Set the Trace Points* 
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FIG. 5.? FLOW CHART OF SIMULATION STEPS 









1 ) The c ontents of the program memory pointed to by 
th© program counter (PC) are loaded into the instruction 
register (IB) , PC is incremented by one. If the trace mode is on* 
this PC value is compared with low and hi<$i values of the trace 

Raines setup by the user. If the Trace value equals the low 
address value teen the Trace flag is set true. If the PC value 
equals the high address value then the Trace flag is made false. 

If the PC value does not equal either the low address or the 
high address setup by the user for Trace* then the trace flag 
remains unaffected. Since IMS 32010 instructions do not have 
a fired format* the opcode is not easy to decode. The 16 bit 
IB is subdivided into IBH and IRL* each of 8 bits. Examination of 
IRH gives 256 choices* many of which lead to a particular instru* 
ctlon. Cases where tee mm IBH points to more than one instruction 
are further analyzed with the help of IBL to pinpoint the instru- 
ction, If the IR value points to an inexecutable instruction* 
then error message is flashed on the terminal* further execution 
of the program is stopped and te® simulator comes back to monitor 
mode (Simulator prompt)*, 

2) After identifying the Instruction* tee case statement 

« t 

( decoding routine) calls the particular procedure to carry out 
that lust ruction, 

3) Each instruction of TMS 32010 is simulated by a separate 
procedure. The name of tee procedure is declared as tee mnemonic 
preceded by P* to give a better readability to the program. After 



the control has been passed to the procedure* it finds out 
the operand by examining IRH or IRL.blfh, The procedure then 
fetches the operand and takes proper action. The different 
registers, memory and status words are changed, clock count is 
incremented by the required clock cycles and if the instruction 
needs two words of program memory then PC is further increase 
nied by one, 

4) If the Trace flag is on, thenithe contents of PC, ACC, 
ARO, AKt, statu® register and clock counts are displayed on the 
terminal. The interrupt is made active by the user and the 
desired number of clock cycles is set by procedure "PINTfi?, 

When the des5 red number of clock cycles have elasped, then ^ cticns 
interrupt flag is set true and appropriate action is takenjs^to be 
taken on an interrupt are, 

(!) Reset INTERRUPT flag , Set inrn 

(2) Pash PC to stack 

( 3 ) Load PC with 2, 

5,3 ss ss siMEsga 

While designing the TMS 32010 simulation system, following 
points have been considered! 

(1) The simulation system should tamely reflect the 
architecture of TMS 32010 and should be able to execute the 
instruction set* 
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(2) It should have sufficient software peripheral* e.g. 
Input fiftpv output file* load* plot* attached to the processor 
to carry out tasks encountered in speech processing* 

(3) Sufficient debugging features oust be provided for 
efficient and accurate program development* 

This section discusses the design of the simulator to 
meet the above* 


5.3*1 , 9 gasaai» 

A block diagram of IMS 32010 simulation system is shorn 
in Fig, 5.3 . Each storage location of IK 32010 is mapped onto 
a storage location of DEC 1090 system* The mapping is as follows: 


mjmM 

- Data Memory 

— Stack 


- an array 
an 



•Y of 144 words of 16 b' t* 
of 4 words of 12 bit* 


IE* ARO*AR1, * ansaprrai# memory location of 16 hits 

and T registers 

each having the names IE* AEG* AR and TR 

respectively* 


v ACC and P 


BIO, W, 

X MM, ARP ai 

DP 



• a memory location of 12 bits of name PC 

** a separate memory location of 32 bits each 

• a separate memory location of 1 bit each. 
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- Program Memory 


- IMPORT 0 

♦ IMPORT 1 to 7 

♦ QUTPORTS 

♦ OUT PORT 0 


• an array PMEMQRY of 4096 words of 
16 bits each 

- INPUT file 

- an array of 7 words of 16 bit each* 

- an array of 8 words of 16 bit each* 

- OUTPUT file* 


5 . 3.2 ,I,n^,g9X,4£lite.\l£ s 

TMS 32010 has binary representation of all the words and 
2/S 

does Jjte- complement arithmetic. Set of binary numbers represen- 
table in TMS 32010 is napped on to a set of integers. The rule for 
representation is a simple binary to decimal conversion rule. 

Table 5*2 gives the mapping of some typical numbers , 


Number 

TMS $20 

Simulator 

Pcs Max (32 bit) 

> 7FFF 

FFFF 

2**31 - 1 

NagMax (32 bit) 

> 8000 

0000 

2**31 

+1 (32 bit) 

> 0000 

0001 

1 

-1 (32 bit) 

> FFFF 

rrrr 

2**32 - f 

O (32 bit) 

>0000 

0000 

0 

Pos Max (16 bit) 

^ 7 FFF 


2**15 - 1 

Meg .Max (16 bit) 

> 8000 


2**15 

+1 (16 bit) 

>0001 


1 

*— 1 ( 16 bit} 

> ffff 


2**16 - 1 

0 (16 bit) 

> 6000 


0 

TABLE t Ma ooincf 

©f TMS 320 word® to Simulator Words, 



Operations of arithmetic shift* add# subtract, and 
multiply when performed using integer arithmetic need intermediate 
storage* "SCRATCH* and "TEMP* are the variable names given to 
these locations in the simulator program, 

IMS 32010 has 32 bit fixed point arithmetic, MOD 2**32 
is the equivalent operation used in the simulator program to 
truncate the results, A 16 bit data word is sign extended and 
treated as a 32 bit word by IMS 32010 ALU. For this conversion 
the simulator checks as follows* 

If number 2 2**15 then number * 2** 32 «*■ 2**16 + . NUMBER, 

Tv© numbers of similar sign when added if produce a result (after 

S t* ov 

mod 2 ** 32 ) of different sign then over flow is declared , ■ Saturation 

16' S 

of two numbers is carried out by finding 41% complaint of the 
number to be subtracted and then adding it. For multiplication# of 
two numbers# absolute value of the numbers and their sign is recordej 
After multiplying the absolute values# if the signs of multiplicand 
and the multiplier don’t natch then f o llowing^conve rsl on is 

lllsl€t€»# 

Result a* 2**32 - Result. 


Result of none of the operations takes a negative value, 
which Is a fatal condition, 

for logical operations individual bit of a number has to 
be tested, f dFt* and ’mod* operations lit PASCAL are useful in 
identifying I** 1 bit in an integer as follows t 

1 th bit * (Mwt div, 2**1) mod 2 




Interrupt servicing is delayed until the end of a 
multicycle instruction in the IMS 32010 processor* In the 
simulator* each instruction is executed by entering the execute 
procedure* x Hence it is good enough if the clock count is examined 
after the execution cycle is over* The equation* 

CLOCK mod RATE m 0 (5*1) 

gives the instant when interrupt arrives* Since TMS 32010 ha© 
multicycle instructions and interrupt servicing has to be delayed 
until the end ©f multicycle instruction,! equation 5*1 fails to 
generate the Interrupts at the rate of every n RATE n clock cycles* 
A solution is to modify equation 5*1 to 

CLOCK mod HATE » 0, or 1* or 2 (5*2) 

and introduce a flag “ FREVXNTR% This flag distinguishes between 
the cases where R*H*S. of equation 5,2 is 0 follovied by 1 or 2 
and the eases where O is skipped and R*H,S* of equation 5*2 is 
1 followed by 2* This is sufficient because no instruction of 
TMS 32010 takes more than three cycles for execution* 




Interrupt processing has to be delayed by one Instruction 
in case the current instruction is MPY or MPYK or EINI, A flag 
"DELAY" is set true when any one of the above Instruction is 
executed * This flag is reset at the beginning of execution of 
any instruction. 

The logic to generate the interrupt is as follows* 

If GLQC& nod RATE * 0 

then (1) INTERRUPT « true 

(2) PREVINTR * true, else 
If (clock mod RATE « % or 2) and ( PREVINTR * false) 
then 

(!) INTERRUPT » true 
(2) PREVINTR » trui 

else PREVINTR * false. 

When the "INTERRUPT* flag is true* "DELAY" flag is false and 
INTM * o then the simulator goes for interrupt servicing by 
pushing the PC value in the stack and loading PC by 2, 
’INTERRUPT 11 flag is reset only when interrupt is 
serviced. 


5.3,4 Load * 

The object code file generated by the assembler is to be 
loaded Into the program memory. This is achieved by providing 
a "LOAD* facility in the simulation system (Fig, 5,3) , Standard 
extension to tht object code file is OBJ. The Inst amt ions for 
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attaching the user defined file name to the internal file name 
are similar to that used for assembler and are described in 
details In Section 4*5* Standard PASCAL provides RESET (F) and 
REWRITE (F) statement to use external file* Extension to these 
statements are available in the PASCAL compiler used in DEC 
system 1090 computer at IIT Kanpur. The statements used in 
the simulator program to attach the user defined file name to the 
internal file is RESET (F* File name). Since other fields such as 
Project, Programmer number and protection code etc* are not 
used the file is looked into the user*s area as a default mode. 

5 * 3*5 J./O Ports t 

TMS 32010 provides 8 inports and 8 outports. The 
simulation system (Fig. 5 . 3 ) is desired to provide adequate 
facility to run application programs without any constraints* 

For this purpose IMPORT © is attached to the input file* Since 
the size of the input file is limited fey the memory made available 
t© the user, a good amount of data can be stored. 100 blocks ©f 
memory can store^econds of speech data at 10 KHz sampling 
rate* IMPORT 1 to T are provided as 16 bit registers* Provision 

is made to load the data into the i^ort 1 to T from the TTY* 

$ 

The OUTa’ORT © of the simulation system is designed as the 
OUT POT file* Data outputted to PORT O are written into the 
OUTPUT file in users area* OUT PORT © to 7 are simulated as an 
array of 8 words# 16 bit each* These ports can be inspected by 
the user , It may he noted that the data written on OUT PORT O 
appear in the OUTPUT file as well as in the OUTPORT(O) of 
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5*3.6 PLOT t 


In speech processing applications often a plot of the 
data conyefys more meaning than just the numerical values. 

A need was therefore felt to design the plot facility* The 
" plot" command produces a visual indication of the numeric 
values of program memory. In TMS 32010 applications* a block 
of data may reside in the program memory. The processed 
data is put back in the program memory. A typical application 
may be FFT* Autocorrelation* Average Magnitude Difference Function 
(AMDF) of a block of data. Plot procedure la designed as follows! 

16-bit number has a range from 0 to 6553^. Down scaling 
by a factor of 820 gives the range 0 to 80 which tan be repre- 
sented on a terminal with a width of 80 characters* To plot 
the graph* "LOW 1 and "HI Of* limits of the Program Memory address 
are set by the user. To start with* PC is loaded with the low 
value and Program Memory contents of the location pointed to by 
the PC are fetched* This is downscaled as discussed earlier. 

The down scaled number is decremented until it becomes zero. 

At each decrement* a blank is written on the output file. When 
the downscaled number becomes zero e “** is written on the output 
file* ^PC is incremented* and the steps listed above are carried 
out until the PC reaches the ’’HIOF value pxovicted by the user. 

The PU)T facility uses the output file to store the graphic a ij 
representation* linking of the 001 PORT 0 to the OUTPUT file 
and use of PtOT command cannot be done simultaneously* This is 
not a drawback since in usual practice if the user takes data 
from program memory then he returns the result also to the program 
memory! (i,e, Program Me ®ry acts as a source of time dependent 


data)* 


5.3*7 .TRACE t 

During the course of execution* different register 
contents do change according to the program. For debugging 
and efficient program development it was thoucfrt to provide 
a facility by which user is made aware of these changes at 
every instruction. As shown in Fig. 5*3 the TRACE block does this 
function* A Trace flag **TRFLGP is set when the user opts for 
Trace facility by using W SETTRACE M ^omaand. Low address and High 

address provided by the user set the begin and end of the Trace . 

> 

’V/jrfhen the PC value during execution actuals the Low address* another 
flag "FLGTR” is set True# and tfjen the PC value during execution 
equals the HIGH address the flag “FLSTR* is set false. As long as 
the flag ^FUaTR® is jttnf* trace is displayed. The ^TRFLC? flag 
set true by the SET -TRACE command can be made false by REMTRACE 
command thus disabling the trace. Registers which are show* on 
the terminal during trace are «* PC# ACC* ARC* ARf * status and 
number cumulative of clock cycles. 


A vary useful part of the IMS 320 simulation system 
of Fig. 5.3 is deposit and display block. It acts as an 
interface between the user and the processor. Deposit facility 
has been designed to store user defined values in Program Memory* 
Data Memory, In Ports 1 to f# and various registers such as PC* 
ACC* PR* ARC* ARf * IR and TR, This gives the user enough 
Command to control tho processor manually. Display facility 
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displays data from Program Memory, Data Memory* oat Ports O to 
7* and various registers such as ARO # ARt * TR* IR, PC* ACC and 
PR, The display facility allow the user to inspect various 
locations vshlch usually cannot be inspected on a hardware system, 

5*3 ,9 

When the program is continuously executed it is some times 
necessary to temporarily suspend the program execution and us® 
the display/ deposit commands to examine the Contents of different 
locations which are usually not available by the Trace* and/or 
change the contents of different registers. This is don® by 
providing break points to the simulation system of Fig* 5,3* 

Break points are represented by an array "BRKPT* of 
boolean variable. There are 4096 break point flags* each corres- 
ponding to one program memory location* Sire of the break table is 
8 and is arranged as a record, . Ihus at most 8 different break 
points can be set* When a break point is set* at a particular 
program memory location* the entry corresponding to that location 
in ®BRKPT" array Is mads true. During program execution* execution 
Is suspended if the "BRKFT* flag corresponding to that PC value 
is true. 

Facility is provided to list the break points and 
remove the break points* Removal of break points is achieved 
by settling the "BRKFT® array flag corresponding to Idle desired 

location as false* Selective insertion and removal of breakpoints 

/ 

helps the user worfe.jserSr" afficlently with 8 breakpoints. 
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5*4 SPECIAL. FEATURES 

(1 ) During program development, the concept of modular 
programming is strictly adhered to. Each instruction is simulated 
by a separate procedure. Other services, like decoding, effective 
address calculations, over flow detection etc, are achieved by 
separate procedures, 

(2) Adequate documentation facility is provided in 
the source program to explain the working of the simulator in 
general and constituent subroutines in particular, 

(3) Particular emphasis is given to ensure that the 
simulator takes a minimal path in simulating instructions. Use of 
CASE statement available in PASCAL for Instruction decoding help to 
this and* 

(4) Addition of new instructions is not restricted by 
the simulator. For addition of each new instruction, a little 
modification in the CASE statement is needed to identify that 
instruction and another procedure is to be added to eseeute the 
instruction, 

(5) Total number of clock cycles the program requires for 
execution is calculated to give the user an idea of actual ex ecu ti or 
time, 

(6) Warning passages and error messages are flashed 
on the terminal, PC location in question is also given viiich 
helps the user in program development. 
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(7) Reasonable amount of debugging facility Is 
provided to let the user knew*/ modify intermediate results* 
memory contents* registers etc* 

5.5 HEM TO USE THS SIMULATOR 

> 

When the simulator is run* a *i % prompt character appears 
on the terminal* The user can choose any of the commands listed 
in command table (Table 5.1). The facilities provided by the 
simulator can be combined in the following groups* 

1 . Deposit and Display Facilities 

2* Trace Facilities 

3* Break Point Facilities 

4, Execution Facilities 

5. Miscellaneous Facilities* 

Use of these simulator facilities Is explained in details 
in the following subsections. Meet of the conversation between 
the simulator and the user is interactive and obvious. With a 
little effort one can know how to use the simulator. In the follow!! 
discussion CR means carriage return. Ail numeric values accepted 
by the simulator are in he&adecimal notation. Message typed 
by the simulator on the terminal screen Is enclosed by * * * 
character. 







given below* 

*>* DISPRQG aaa CR j aaa *» program memory address 
*©ae/d 0 d 0 d o d 0 * CR ; starts displaying from aaa 
’aaa+Z^t^l Cfl I continue displaying 
•aae+iy^d^d^y CR f comes out of this session* 


below* 

•>* DEPIPORT a 

V • w. 

* a + 1/ 'dj djdj dj 
»*+**/* 


Model session for this command is given 


CRf a * port address, 

CRf <^,d 0 d 0 d 0 is deposited in IN port a 

CRj continues depositing in subsequent IN ports 

CR; comes out ©f this session, 

i Model session for this command is given below; 


*>* DXSOPORT a CR | a * port address, 

•V VAV m i 

, a+1/d,d,d|d 1 > CR I display continues 




[*>fi 
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“ display Registers s One of the registers can be displayed at a 
time. The registers that can be displayed are AKO, AR1, TR, IR, PC, 
ACC and PR registers. Since these registers are of different length 
the output displayed is of appropriate length . Model session fox 
this command is given be lavs 


*>» DISREG R f R is the register abbreviation given ab 

* R/D* $ D ~ contents of the register 

? Simulator prompt come® back automatical! 


-Deposit ■registers.! One of the following registers can be deposited 
. , ' ! 

with the appropriate data value* The registers are ARO, ARt , TR, 

IR# ACC, PR, PC, ARD, DP, BIO, Model session for this command is 
given below* 


*>* DEPREG R | R is register abbreviation given above 

*R/» D CR $ D * appropriate data 

%y >* I . Simulator prompt comes back automatical 

-Load * Program tan be loaded automatically In the program memory 
from the user defined file. This file must be present in ths user 
area with an extension OBJ, Usually, assembler discussed in 
Chapter 4 produces this file, PC value is automatically set by the 
OFU5 pseudo -ope rat ion present In the first line of the source 
program. Model session for load is given below* 

*>« LOAD CR 

* GIVE OBJ FILE NAME* * FILE NAME CR 

*>* | Simulator prompt comes automatically after loading. 



3«5.2 1 mm Facilities 2 


Contents of different registers and memory location* 
cannot be usually observed unless specific action Is taken as 
described earlier. Trace facility enables the user to read 
the contents of important registers while the program is being 
executed. It Is very helpful in application program development, 
A display of PC, ACC, ARO, ARi, status bits and d&otfc cycles is 
provided when trace is set. The simulator provides the following 
trace facilities* 

•Set Trace: Trace can be set between the two PC values* During 
program exec utlon when the PC value reaches the lower limit of 
the trace value, the simulator starts displaying the contents of 
the important registers mentioned earlier. When during program 
execution the PC value reaches the high limit of the trace the 
simulator stops displaying the contents of various registers. 
Model session of settrace is given below. 

*>» SETTRACE CR 

*IXWl * L CR | User, provides the lower limit I* of the trace on 

the TTY, 

•HIGH* » * H CR} User provides the higher limit H of the trace 

on the Ilf. 

• Remove trace: The trace set by the SETTRACE command can be 
removed by tide command. Model session using this command is 
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5.5.3 

Trace facility explained earlier gives a limited 

amount of information to the user* The break point facility 

allows the user to setup upto a maximum of 8 break points, 

lists the break points and removes the break points. Execution 

of the program is suspended when a break point is met, Tha 

user can inspect and/or alter the internal registers and both 

program and data memories , With the help of the facilities 

listed in 5,6,1 . At the break point the program returns is the 

simulation mode and simulator prompt character appears on the TTY* 

Thus all the facilities enumerated in Section 5,6 are at the user 1 © 

s 

disposal. Break point facilities are given below* 

* Set break points t A maximum of 8 break points can be set up. 

Since the break points themselves can be setup or removed when a 
break point is met this limit on maximum number of break points 
is sufficient to test a program of any complexity. Model session 
to set break points is given below. 

*>» BEK 81 B2 CR # Sets break points at PC locations Bj,B 2 

«• Remove break points* User can remove all the break points togethsf 
or can selectively remove the break points as per the following 
session example, 

* 7 • REMBRK B 1 B 2 „„CRf Removes break points at B 1# B 2 etc, 
selectively, 

•>* REMBRK CR; Removes all the break points. 

* list the break points* By this Command the user can list the 
break points sntered in the break point table. Model session is 


given below. 


07 

* > * LSTBRK. CRj 

5,5.4 isaait Va litlHStoi 

The simulator provides the option of single stepping or 
continuous execution. Interrupt facility also is provided in 
the simulator to register the interrupts at user defined 
interval. These execution facilities are given be lows 

** Single Step Executions The simulator executes on® instruction 
and returns to the simulator prompt* enabling the user to use all 
the debug facilities* Example for single stepping is given belows 

*>* EX CR $ Executes one instruction and tomes bach to 

simulator prompt. 

• Continuous executions In continuous execution mode the 
simulator continues to execute the program until a break point i 
met or an error has occurred during program execution* Example 
for continuous execution is given below# 

*>* GO CHy 

•Execution with, interrupts# User is provided with the facility 
to generate the interrupts at a given rate* Model session to set 
up the interrupt is given belows 

*> * IttHl ' CRf 

*AT CLOCK INTERVALS* * ft CRf ft is the number &f clock cyattes 
after which interrupt is generated. 




Facilities 

-JExlts One can stop the simulator program by EXIT 
command* An example is shown below* 

* > * EXIT CR* 

•2PUJT : This facility enables the user to plot tile 
contents of program memory in the output file in 
user’s area.* The program memory can be plotted* 

Staling is done in such a nay that the maximum 
positive and minimum negative numbers are represented 
by about 40 character spaces enabling the whole plot to 
be seen within 80 lines* A model session of plot 
command is shown below* 

* > * plot ca 

*>* i *1 CRf user gives the lower limit of program 

memory 

•HKH* i * H CRf user gives the higher limit of prograi 

memory* 

Model Session on Simulator for FFT Computation 
is shown. 



5.5.6 


MO EEL SESSION 


9 9 


XECUTE M*REL 
NKJ Loading 
NKXCT M execution] 


LOAD 

VE OBJ FILENAME J FFT8 
SETTRACE , 
iW X D7 
GH J D9 
BRK 108 
GO 

JOBS ACCJOOOO 0002 AR0JO005 ARIJOIFF STATUS* 10010 CLKJ 2681 

:?0D9 accjoooo 0002 arojooos arijoiff status: 10010 clk: 2682 

•TA ADDRESS OUT OF RANGE AT USER PC:0D9 

::oda accjoooo 0002 arojooos arijoiff status: 10000 clk: 2683 

;tOB8 ACCJOOOO 0004 AROJ0004 ARIJOIFF STATUS: 10010 CLK J 5047 

'J0D9 ACCJOOOO 0004 AR0J0004 ARIJOIFF STATUSJ 10 0 10 CLKJ 5048 

^TA ADDRESS OUT OF RANGE AT USER PCJ0D9 

:joda accjoooo 0004 aro:ogo4 arijoiff status: 10000 clk: 5049 

::ob8 accjoooo 0008 aro:ooo3 arijoiff status: 10010 clk: 7261 

:J0D9 ACCJOOOO 0008 AR0:0003 ARIJOIFF STATUS! IOOIO CLKJ 7262 

AT A ADDRESS OUT OF RANGE AT USER PCJ0D9 

CJODA ACCJOOOO 0008 AROJ0003 ARIJOIFF STATUSJ 10000 CLKJ 7263 

C JOBS ACCJOOOO 0010 AROJ0002 ARIJOIFF STATUSJ 10 0 10 CLKJ 9399 

CJ0D9 ACCJOOOO 0010 AROJ0002 ARIJOIFF STATUSJ 10010 CLKJ 9400 

ATA ADDRESS OUT OF RANGE AT USER PCJ0D9 

CJODA ACCJOOOO 0010 AROJ0002 ARIJOIFF STATUSJ 10000 CLKJ 9401 

CJ0D8 ACCJOOOO 0020 AROJOOOl ARIJOIFF STATUSJ 10010 CLKJ11499 

CJ0D9 ACCJOOOO 0020 AROJOOOl ARIJOIFF STATUSJ 10010 CLKJ11500 

'ATA ADDRESS OUT OF RANGE AT USER PCJ0D9 

CJODA ACCJOOOO 0020 AROJOOOl ARIJOIFF STATUSJ 10000 CLKJ 11501 

■CJODB ACCJOOOO 0040 AROJOOOO ARIJOIFF STATUSJ 10010 CLKJ 13580 

’CJ0D9 ACCJOOOO 0040 AROJOOOO ARIJOIFF STATUSJ 10010 CLKJ13581 

•ATA ADDRESS OUT OF RANGE AT USER PCJ0D9 

'CJODA ACCJOOOO 0040 AROJOOOO ARIJOIFF STATUSJ 10000 CLKJ 13582 
)ATA ADDRESS OUT OF RANGE AT USER PCJODF 

ireak-st-user-pc J 0108 

> PLOT 
-OW J 00 
HIGH J 7F 

> EXIT 

EXIT 


*irv r\i ircii nr 


5.6 gmmm 


The slum la tor is a useful tool to develop and test the 
program* This simulator is very helpful In developing signal 
processing programs to he run on IIS 32010, Randomisation of 
interrupt is not done purposely because in speech processing 
applications the interrupt® occur at regular intervals# This is 
in conformation vAth the simulator supplied by the manufacturers 
of TMS 32010. Documentation is provided in the simulator program 
to understand its working. At present* the output file in 
users area is used for two purposes. Out pat file acts as 
our PORT 0 and also gives the plot of program memory. It is 
possible to work cut with this arrangement. Data is either stored 
in the program memory and out putted in the program memory* 
or else data is stored in the Input file and result of processing 
is outputted in the output file,. 
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An extensive testing of the assembler and simulator 
programs is tarried out with each individual instructions 
In order to generate more confidence in the system > a^a few 
bench mtk hsregralsohave also been tested# By the bench 
mark programs correctness of the simulator is chocked* Exact 
times can be obtained by them to judge the real time programs* 
An antialiasing digital filter jjQ and FFT program for 64 
point complex data [sQ are implemented on IMS 320 s isolator* 
Sectfi on 6.2 gives the details of digital filter implementation* 
Filter specifications! design equation# program flow chart# 
assembler output listing and the Impulse response and step 
response of filter are given* Section . 4 .*! gives the FFT 
program. Program description# flow chart# assembler listing# 
tbs FFT of real symmetric 8 point square wav© and FFT of a 
symmetric two imaginary points Is given. 
conclusion, 

8.2 OISnAL FILTER IMK-EBjaaiOt;] 

The filter specifications and the design equation for 
the digital filter are taken from [ij and are reproduced below* 



1 


6.2*1 , ^pecifisBMo nsa 

Saiaple frequency (f g ) 10 KHg 
Corner frequency (f ) 2 KHz 

w 

Attenuation at f* -2 db 

Attenuation at 1 *2 f f -15 <8> 
Patsband ripple -h^ 1 # 5 db 


6*2*2 ,,PaaijBaj,«atl 2 i» 

i 

Th© FIR filter for the specifications of 6*21 is a 
17 tap digital filter. The difference equation is 

y{n) = -ft 547 x(n) + 5109 x(n~t) + 724? x(n-t> + 3367 x(n-3) 

- 3685 x(f**4) * 4868 x(n-5) + 6707 x(n*6) + 24279 »(«-*?) 


* 32767 x(n-8) + 24279 x(n-9) + 6706 x( n-1 0) — 4860 x(n~11 
-*3685 x(nM2) + 3667 x(n-13> + 7247 x( n-14) *5109 *( n-15) 


7547 x(n-16) 
17 


n*4 


£it # \* C n * Constant for tap n* 
3 ^ « data value at tap n« 


6*2*3 Flow Chart and^iqgrasLBgMM* 

•TIi© flow . diagram for the assembly language program to 
implement the above filter is given in H g, 6 J *Sonstanta are 
defined in th© program memory from location 1024 onward©* The©© 
constants art read into data memory locations 0 to 16* «alng 
XB1H instruction, LOOP At achieves this loading* H» input data 





ACC = 1024 ; ARO = 16 , AR1 = 0 5 


DATA (AR1) = PROG (ACC); ACC = ACC+1 ; AR1=ARl+l| 
ARO = ARO-1 1 


A1 LOOP 



DATA (17) = INPUT ; ARO = 33 ; ARI =16 
ACC = 0 ; PR = DAT A (ARO) # DATA (ARI) 
ARO = ARO-1 ; ARI = ARI -1 


TR = DATA (ARO); DATA (ARO + 1)= DATA (ARO) 
ACC = ACC + PR } ARO = ARO -1 
PR = TR # DATA (ARI) 

ARI = AR1-1 



DATA (34)= ACC j OUTPUT = DATA (34) 


FIG. 6.1 DIGITAL FILTER PROGRAM FLOW CHART 
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FIG. 6 # 3 * IMPULSE RESPONSE 
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ASSEMBLER LISTING FOR FILTER PROGRAM 



read late data memory and the filter equation is tabulated* 

By starting constants at location zero in data memor y the 
pointer for constants, AKi is also used as the loop counter 
(Loop A2), DTD instruction is used here very effectively. 

It doos the following functional (a) loads T register, 

(b) Accumulates previous product, (c) moves data memory, 

(d) charges ARP, Details of the data memory location used for 
Intermediate computation is given belows 

, , C 

♦ Data (0) to Data (16) s Filter Coefficients Ct to^lT 

- Data (17) to Data (33}i Input Samples to X17 

• Data (34) t Digital Filter Output* 

6*2 ,4 . 

Step response of the filter to a step of >2000 
i® shown in Fig, 6*1- . The response saturates to the sum of 
the taps w«l$ited by the step after 17 samples. The impulse 
response of the filter is shown' in Fig* 6,3, The output of 
the f liter dies down after 17 samples* The number obtained on 
the output file are recorded In the program memory. Plot faeilH 
is then Used t© get Figs, 6.1 and Fig* 6.3. The program need* 

93 doth cycles to output one sample. 

M FFT Programs 

Colley-Tukey Radix-2 Decimation In -frequency FFT 
program is run on the simulator. The program is for 64 point 
complex input data-* However, it is general enough to accoraraedat 
ff% ©f any six© provided. The sin/cos table of suitable length 



a block. No scaling is dm© on the intermediate values in 
til® program. Data are assumed to tee stored in the program 
memory before the program execution. They are stored front 
location 0* The sin and cos tables are also stored in the 
program memory* They start from location 1024* The program 
start® from program memory location 128* 


6*3,1 imams Jjeacrl otl on and Flow Charts 

The signal flow diagram for FFT computations as applied to 
writ© the assembly language program is given in Fig, 6,2, Data 
memory locations on page 0 are used for computations and for 
storage of intermediate results. There are listed in -Table 6,1* 
Data is arranged in such a way that the real part of the complex 
input is followed by the Imaginary part. Sin and cos values are 
need for half cycle only. Since there Is an overlap b ©tamer* 

Sin and cos tables* a storage of 3N/4 values Is sufficient to 
compute the FFT of M points. Loop A3 computes a single butterfly. 
Butterfly operations are depicted in an inset in the flow chart 
of Fig, 6,4*-. The A2 loop updates the theta values (sin and cos 
functions ) whereas the A3 loop is for the nodal computations. 

The output which appears in the bit reversal order is bit 
reversed to appear in natural order. The result thus is available 
In the same program memory locations where the data were stored. 
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TABLE 6*1 i Data Memory Allocation for FFT Computation* 


LOCATION 

VALUE 

comm 

0 

X(I) 

Array value X(I) 

i 

Y(I) 

Array value YU) 

2 

X(L) 

Array Valve X(L) . 

3 

vet) 

Array value YU) 

4 

xU* 

Temerauy * real part 

5 

vm 

Temporary ♦ imaginary pert 

6 

1 

first index 

7 

L 

second index 

8 

Cm 

Twiddle fee tor - real part 

9 

Sin 

Twiddle factor ♦imaginary part 

10 

1A 

Index to twiddle factors 

11 

IE 

Increment to IA 

12 

64 

Contains valve N 

13 

H 

Contains value N/4 

14 

m 

Increment to f 

13 

m 

'Separation of I and L 

U 

j 

Loop counter 

17 

i 

Numerical valve 1 

1® 

1024 

Coefficient table starting point 















FFT PROGRAM 


> 

080 

1 

) 

080 

2 

L 

081 

3 

L 

082 

4 

3 

083 

5 

1 

084 

6 


085 

7 

E 

086 

8 

2 

087 

9 

0 

088 

10 

E 

089 

11 

C 

08A 

12 

F 

08B 

13 

C 

08C 

14 

D 

08D 

15 

5 

08E 

16 

1 

08F 

17 

>F 

090 

18 

>E 

091 

19 

IF 

092 

20 

(9 

093 

21 

)A 

094 

22 

.0 

095 

23 

)F 

096 

24 

?B 

097 

25 

12 

098 

26 

)A 

099 

27 

59 

09A 

28 

5D 

09B 

29 

58 

09C 

30 

OA 

09D 

31 

OB 

09E 

32 

OA 

09F 

33 

10 

OAO 

34 

06 

0A1 

35 

06 

0A2 

36 

OF 

0A3 

37 

07 

0A4 

38 

‘06 

0A5 

39 

’00 

0A6 

40 

111 

0A7 

41 

'01 

0A8 

42 

>07 

0A9 

43 

'02 

OAA 

44 

)11 

OAB 

45 

?03 

OAC 

46 

)00 

OAD 

47 

502 
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- 0B2 

52 


ORG 128 iPROG STARTS. 

LDPK 0 JDP MADE ZERO. 

LACK 1 f ACC=1 ♦ 

SACL 17 »DATA( 17)=1 * 

. SACL 11 J DATA( 11 >=1 « 

LT 17 f TR=1 ♦ 

MPYK 1024 

PAC » ACC=1 . 

SACL 18 f DATA( 18)=START OF COS TABLE. 

MPYK 64 

PAC 

SACL 12 » DATA( 12 ) =64. 

SACL 15 i INITIALIZE N2=N. 

LAC 12 14 

SACH 13 i DATA< 13) =N/4 . 

LARK ARO 5 »ARO CONTAINS K COUNTER. 

Alt LARP 1 i K LOOP. 

LAC 15 15 

SACH 14 1 f N1=N2 . 

SACH 15 i N2=N2/2 . 

ZAC 

SACL 10 
SACL 16 

LAR AR1 15 ? AR1 CONTAINS J VALUE. 

MAR *- JSTART AT N2-1. 

A2t LAC 18 » J LOOPf TABLE IS FULL SIZE. 

ADD 10 
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ADD 13 
TBLR 8 
LAC 10 
ADD 11 
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LAC 16 1 
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SACL 7 
LAC 6 

TBLR 0 iX(I>. 

ADD 17 

TBLR 1 »Y<I>. 

LAC 7 
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ADD 17 

TBLR 3 »Y(L>. 

LAC 0 ? COMPUTE BUTTERFLY 

SUB 2 t V/I . 

SACL 4 SXT-X(I) X(L). 

SACL 0 » X<I)=X(I>+X( L> . 

LAC 1 
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FIG. 6.5 FFT OF REAL SYMMETRIC SQUARE WAVE 



FIG. 6.6 FFT OF IMAGINARY ASYMMETRIC POINTS 



\\ 2 > 


2 . 

FFT program was tested by finding the spectrum ©f 
a real square wave. The input wave and the output wave art 
shown in Fig, 6 .S’. They have been obtained using the plot 
facility. The spectrum is of Sin s/* shape, Imaginary part 
of the output which is zero is not plotted* Figure 6,6 show® 
the FFT output when is pit at imaginary location 2 and 
i® put at imaginary location (64*1), The resulting FFT output 
is a sin wave with 2 cycles. It takes about 16000 (16008) 
clock cycles to compute 64 point complex FFT, 

6*4 m wmm 

The bench mark programs run on the IMS 32010 simulation 
system give the expected results* It shows that the system 
works perfectly and the facilities provided are adequate „ 
Input/ out put files attaches to the IP0RT and OfQRT are used for 
the digital filter program and the plot facility provided is 
used for the FFT program* Use of program memory for storing j 
* hia is a useful feature of TiS 32010 architecture 


constants i 
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CHAPTER 7 


CONCLUSION 


7.1 INTRODUCTION 

Requirements of a real time speech processor and the 
architectures based on bit-slice microprocessors are brought 
out in this thesis. Simulation of Texas instrument’s signal 
processing chip, which is widely used in speech processing 
has been carried out on the DEC system 1090 computer of 
I.I.T. Kanpur. 

In Section 7.2 conclusions drawn on the speech processor 
architectures and the advantages of the simulator are presented 
A few suggestions are made in Section 7.3 regarding possible fu 
work in the area of speech processor architectures and the type 
programs that can be run on TMS 3201 0 simulator. 

7.2 CONCLUSIONS 

The following conclusions can be drawn about the speech 
processor architecture: 

(a) A separate multiplier or multiplier accumulator is 
needed to multiply or multiply and add in a single 
machine cycle. 

(b) Speed of the processor must be above 4 Million 
Instructions Per Second (MIPi»). 

(c) The processor must have separate program memory and 
data memory to enhance the speed. 



(d) Xt suit hivi powerful branch instillations* 

(•) A stack at least upio tlx deep is fait sufficient for 

twelve 

speech processing* However an - sight 'deep stack seems 
to be ideal, 

{f) The I/O devices such as Analog to digital converters* 
Digital to analog converters ^ ferial to parallel 
converters and parallel to serial converters wist have 
direct memory address* • 

( g) It should have flexible addressing modes* 

(h) The instruction set mast be vary powesfbl and mast haw 
special instructions to wave data in 'memory* 

( 1 ) Must have a provision to serve multiple interrupts m 
a priority basis* 

( j) The microcode must be of reasonable width . 4 ® to 6 © bit 
microcodes are manageable. 

The facilities provided by the slwtetion system are 
tailored to the wed. of epeeth proeeoelng. Hww**. they sen 
be nade see of 1 b other field* eaeh •* eonrainlcetlens, eontroli 
s eland c pmeeoelng ahere the awtmt ef oomputttlone ere now. 
Apert fro, the Male tort ef elwletlng the Inst motion set of 
TUS 92010 end providing t« edeguete debugger, **>• * loulat “' 
provide* the felloedng fesilitleet 

(.) Input file i« #tt*#b*d to the port 0 ef the IMPORT, 

(b) output file le etteehed to the pert » ef the OOTPORI. 
U) interrupt gentrrtleh «.« be eet up »t reguler tnter«l. 
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( d) Graphical representation of the signal can foe observed 

on the terminal screen* A hard copy of the same can alto 
foe taken on the line printer, 

7.3 S’JGvjc.SIIO&S FOR FUTURE JQRK 

The following work can foe carried out at a follow up of 
the work presented in the thesis. 

O ) ^ would foe worthwhile to try the detailed design of m 

ideal processor* borrowing the good points of the architectures 
discussed in this thesis. Such a processor when implemented 
using VLSI technology would foe the best answer to the speech 
processing community. 

(2) A comparative study of different signal processing chips 
such as Intel's 2920* AMl's 2811* NBC* s 7720 and Texas Instru- 
ment® IMS 320 would foe interesting. The present work could not 
include them due to nonavailability of technical details* 

(3) Digitised speech could foe stored In the input file* 200 
blocks of memory can store more than S seconds ®f speech* This 
is sufficient to try out different speech processing algorithms. 
If speech Analysis-Synthesis techniques are tried out then 

the output can be played back in real time' to see the speech 
output of that analysls^yftthesis technique * 

(4) One of the reasons chosen to use a higher level language 
for programming was its portability to different computers* 
PASCAL statements used in the assembler and simulator programs 
*▼*» ffmftf.iv from Standard PASCAL, the places where it ia specific 



to the DEC system 1090 are: 

(a) the extension of "case" statement : others 

(b) the extension of "Reset" and "Rewrite" statements. 

RESET (F f filename) and REWRITE (F, Filename). 

The same program with little modifications to the above 
two statements must run on other computers such as IBM-PC, 

PDP-11 and VAX. Although all these machines are 16 bit, 
the PASCAL implementation on them must be supporting 32 bit 
Integer arithmetic. If 32 bit integer arithmetic is not allowed 
by the PASCAL compiler on a particular machine then there are 
major changes in the arithmetic instructions of the simulator. 

(5) Generally interrupt at regular intervals is sufficient In 
speech processing. In the present case the interrupts start 
with the immediate occurrence of 

CLOCK Mod RATE = 0, 1 or 2 (7.1) 

However the interrupt generation could be randomized by doing 
suitable changes in the software. 

(6) The assembler in the present case is an elementary assemtl 
It can be made more powerful to include MACRO instructions and 
to allow symbolic names to all the operands. 
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ASSEMBLER SYNTAX 
MNEMONIC ADDRESS SYNTAX 


ABS 

ADD 

direct 

L<label>3 

C<label>3 

ABS 

ADD 

<d«na> 

ADD 

indirect 

C<label>3 

ADD 

-C*/*+/*-> C<shift> C<ARP>33 

ADDH 

direct 

Cdabel>3 

ADDH 

<dma> 

ADDH 

indirect 

C<label>3 

ADDH 

<*/*+/*-> C<ARP>3 

ADDS 

direct 

C<label>3 

ADDS 

<diria> 

ADDS 

indi rect 

C<label>3 

ADDS 

{*/*+/*-> C<ARP>3 

AND 

direct 

E<label>3 

AND 

<duia> 

AND 

indi rect 

C<label>3 

AND 

<*/*+/*-> [<ARP>3 

APAC 

B 


C<label>3 

C<label>3 

APAC 

B 

<Plti3> 

BANZ 


C<label>3 

BANZ 

<PITi3> 

BGEZ 


C<label>3 

BGEZ 

<Plti3> 

BGZ 


C<label>3 

BGZ 

<PITl3> 

BIOZ 


t<label>3 

BIOZ 

<pni3> 

BLEZ 


C<label>3 

BLEZ 

<pms> 

BLZ 


C<label>3 

BLZ 

* : s P ITi 3 

BNZ 


C<label>3 

BNZ 

<pm3> 

B V 


C<label>3 

BV 

<pma> 

BZ 


C<label>3 

BZ 

<FITi3> 

CALA 

CALL 


C<label>3 

C<label>3 

CALA 

CALL 

<pma> 

DINT 

DMOV 

direct 

t<label>3 

C<label>3 

DINT 

DMGV 

<dma> 

DMOV 

indirect 

C<Iabel>3 

DMOV 

{*/*+/*-> [<ARP>3 

EINT 

IN 

direct 

C<label>3 

C<label>3 

EINT 

IN 

<diti3> <PA> 

IN 

indirect 

C<label>3 

IN 

{#/*+/*-> <PA> C<ARP>3 

LAC 

direct 

C<label>3 

LAC 

<dms> t<shift>3 

LAC 

indirect 

C<label>3 

LAC 

{*/*+/*-> E<shift> C<ARP>33 

LACK ■ 


C<label>3 

LACK 

<constsnt> 

LAR 

direct 

C<label>3 

LAR 

<PA> <dma> 

LAR 

indirect 

C<label>3 

LAR 

<PA> {*/*+/*-> C<ARP>3 

LARK 


C<label>3 

LARK 

<AR> <constsnt> 

LARP 


C<label>3 

LARP 

<constarit> 

LDP 

di rect 

C<label>3 

LDP 

<dma> 

LDP 

indirect 

C<lsbel>3 

LDP 

{*/#+/*-> C<ARP>3 

LDPK 


C<label>3 

LDPK 

<constant> 

LST 

direct 

C<label>3 

LST 

<dms> 

LST 

indirect 

C<lsbel>3 

LST 

{*/*+/*-> C<ARP>3 

LT 

direct 

C<label>3 

LT 

<dma> 

LT 

indirect 

C<label>3 

LT 

{*/*+/*-> JXARP>3 

LTA 

direct 

C<label>3 

LTA 

<dma> 

LTA 

indirect 

C<lsbel>3 

LTA 

{*/*+/*-> C<ARP>3 

LTD 

di rect 

C<label>3 

LTD' 

<dm3> 

ltd 

indirect 

C<label>3 

LTD 

{*/*+/*-> C<ARP>3 
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MAR 


MPY 

direct 

MPY 

indirect 

MPYK 


NOP 


OR 

direct 

OR 

indirect 

ORG 


OUT 

direct 

OUT 

indirect 

PAC 


POP 


PUSH 


RET 


ROVM 


SACH 

direct 

SACH 

indi rect 

SACL 

direct 

SACL 

indirect 

SAR 

direct 

SAR 

indirect 

SOUM 


SPAC 


SST 

direct 

SST 

indirect 

SUB 

direct 

SUB 

indirect 

SUBC 

direct 

SUBC 

indirect 

SUBH 

direct 

SUBH 

indirect 

SUBS 

direct 

SUBS 

indirect 

TBLR 

direct 

TBLR 

indirect 

TBLW 

direct 

TBLW 

indirect 

XOR 

direct 

XOR 

indirect 

ZAC 


ZALH 

direct 

ZALH 

indirect 

ZALS 

direct 

ZALS 

indirect 

ZEQ 



C<l3bel>3 MAR 
C<l3bel>D MPY 
C<l3bel>D MPY 
C<l3bel>3 MPYK 
C<l3bel>3 NOP 
C<lsbel>3 OR 
C<lsbel>3 OR 
ORG 

C<l3bel>3 OUT 
C<lsbel>3 OUT 
C<lsbel>3 PAC 
C<l3bel>3 POP 
C<lsbel>3 PUSH 
C<l3bel>D RET 
C<label>3 ROYM 
C<label>3 SACH 
C<label>3 SACH 
C<label>3 SACL 
C<lsbei>3 SACL 
C<label>3 SAR 
C<label>3 SAR 
C<label>3 SOVM 
C<label>3 SPAC 
C<label>3 SST 
C<label>3 SST 
C<label>3 SUB 
C<label>3 SUB 
C<lsbel>3 SUBC 
C<label>3 SUBC 
C<label>3 SUBH 
C<label>3 SUBH 
C<label>3 SUBS 
C<label>3 SUBS 
C<l3bel>3 TBLR 
C<l3bel>3 TBLR 
C<label>3 TBLW 
C<label>3 TBLW 
C<l3bel>3 XOR 
C<label>3 XOR 
C<label>3 ZAC 
C<label>3 ZALH 
C<label>3 ZALH 
C<label>3 ZALS 
C!<l3bel>3 ZALS 
ZEQ 


<*/*+/*-> C<ARP>3 

<dlTl3> 

<*/*+/*-> C<ARP>3 
<constsnt> 

<dms> 

{*/*+/*-> C<ARP>3 
Oma> 

<dms> <PA> 

{*/*+/*-> <PA> [<ARP>3 


<dni3> C<shift>3 

•€*/*+/*-> C<shift> C<ARP>33 

<diti3> IXshift>3 

{*/*+/*-> C<shift> [<ARP>33 

<AR> <dma> 

<AR> -C*/*+/*-> IXARP>3 


<dmi3> 

-C*/*+/*-> C<ARP>3 

<dma> C<shift>3 

-C*/*+/*-> C<shift> C<ARP>3 3 

<dma> 

{*/*+/*-> C<ARP>3 
<dma> 

{*/*+/*-> C<ARP>3 
<dma> 

{*/*+/*-> E<ARP>3 
<dma> 

-C*/*+/*-> C<ARP>3 
<dms> 

<*/*+/*-> C<ARP>3 

<dlTi3> 

{*/*+/*-> C<ARP>3 
<dma> 

-€*/*+/*-> C<ARP>3 
<ditia> 

{*/*+/*-> C<ARP>3 
<eonstant> 
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1 . Meaning of special symbols is given after the table of 
contents* 

2* First character of a label is an alphabet and second 
character is a number* Label is always terminated by a 
semicolon* 

3* Since the comment field which concludes the syntax is 
optional it is not included in the above table* The comment 
always starts by a colon* 



IX? 


AFPEM3XX B 

ERROR MESSACSS AND VARMNGS 

-Assembler Error messages: Assembler Error code is placed 
in place of -the object code in PAS1 file* It also appears 
on the Terminal , 


Error Code 

Description 

ESR 1 

Illegal character 

ERR 2 

Label table overflow 

ERR $ - 

invalid label 

ERR 4 

duplicate label 

ERR 5 

syntax error 

tswta a 

Illegal mnemonic 

ERR 7 

pma Illegal 

ERR 8 

XXndireet addressing error 

mm 9 

Dm error 

ERR A 

Shift error 

ERR B 

ARP error 

ERR C 

Constant out of range 

ERR D 

PA error 

ERR E 

AR error 

ERR f 

proa not found in Pass Two 


User can look at the indicated line number in the 
source program, correct that error and rerun the assembler. 
Pass two is executed only when there is no error tn Pass One* 



♦ Simulator Error Messages 

a) * Command Syntax Error* s This error Indicates the command 
to the simulator is not given in the proper format. 

b) * l^JIMPLEMENTED INSTRUCTION AT USER PC I XXX* j This message 
indicates that either the cod® entered is wrong or some varlab 
during execution has gone out of bounds. 

-Warnings i 

The array registers are used for indirect addressing# 
These registers when used as loop counters usually become more 
than the memory locations (0 to 143). If it is so# a warning 
message is flashed on terminal as below* 

•DATA ADDRESS OUT OF RAM AT USER PC i XXX 1 

The user is advised to see the instruction in question 
and ascertain that he is not using the auxiliary register for 
addressing the memory at that instant . 


PASS1 LISTING 
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*010 

010 

1 


ORG 16 JTEST PROGRAM ♦ 

7F88 

010 

2 


ABS t 

ERR1*** 

3 A1 

: & 

ADD 32 10 t ERROR 1 

ERRA*** 

4 


ADD * 18 0 t ERROR A 

ERR4*** 

5 A1 

♦ 

♦ 

ADDH 32 i ERROR 4 

60A1 

Oil 

6 


ADDH *+ 1 ; 

6110 

012 

7 

A2t 

ADDS 16 t 

7F8F 

013 

8 


APAC t 

F900 

014 

9 


B A4 t 

*A4 

014 




F400 

016 

10 


BANZ A2 } 

0012 

016 




FD00 

018 

11 


BGEZ A1J 

0011 

018 




FCOO 

01 A 

12 

A3J 

BGZ A2 

0012 

01A 




F600 

01C 

13 


BIOZ A5 t FORWARD REFERENCE 

*A5 

01C 




FBOO 

01E 

14 

A4J 

BLEZ A7 » FORWARD REFERENCE 

*A7 

01E 




FAOO 

020 

15 


BLZ 3A 

ERR7*** 

16 


BLZ 3A 

FEOO 

020 

17 


BNZ A6 ^FORWARD REFERENCE 

*A6 

020 




F500 

022 

18 

A5J 

BO A4 

001E 

022 




FFOO 

024 

19 


BZ A8 » FORWARD REFERENCE 

*A8 

024 




7F8C 

026 

20 


CALA 

F800 

027 

21 


CALL A6 

*A6 

027 




ERR5*** 

22 


DINT 25 TERROR 5 

ERR?*** 

23 


DMOV 150 TERROR 9 

ERR8*** 

24 A6 

♦ 

♦ 

DMOV ** 1 i ERROR 8 

7F82 

029 

25 


EINT 

ERRD*** 

26 


IN 16 7 TERROR D 

4788 

02A 

27 


IN * PA7 

2519 

02B 

28 

A7; 

LAC 25 5 

2CA0 

02C 

29 


LAC *+ 12 0 

7E70 

02D 

30 


LACK 112 

ERRE*** 

31 


LAR AR3 11 r ERROR E 

7170 

02E 

32 

A8J 

LARK AR1 112 

70FF 

02F 

33 


LARK ARO 255 

6881 

030 

34 


LARP 1 

6F10 

031 

35 


LDP 16 

6E00 

032 

36 


LDPK 0 

7B0C 

033 

37 


LST 12 

6AA0 

034 

38 


LT *+ 0 

6898 

035 

39 


MAR *- 

6880 

036 

40 


MAR * 0 

6D40 

037 

41 


MPY 64 

6BA1 

038 

42 


MPY *+ 1 



APPENDIX C 


130 


ASSEMBLER LISTING 


PROGRAM ASSEMBLER < FINP , FOUP , PAS1 ) ? 
label 

100 -CUSED FOR ERROR TRAP IN PASS 1}? 
const 

KING = 65536 <16 BIT WORD}? 

type 

WRD =0* .KING? 

CMDARRAY = packed array Cl. *51 of char <FOR MNEMONICS}? 
Y = record 

CMD i CMDARRAY 

end <USED IN MNEMONIC SEARCH}? 

var 

X tchar? 

CC : integer TCHARACTER COUNT }? 

LL X integer <LINE LENGTH}? 

LINE t array Cl.. 811 of char? 

I J integer <NUMBER OF SYMBOLS IN SYMBOL TABLE}? 

J J integer? 

M X integer <LINE NUMBER IN SOURCE FILE}? 

B X integer <GETNUM DEPOSITS NUMBER IN B}? 

JMPADR X WRD <JUMP ADDRESSS FOR BRANCH INST.}? 

Cipacked array Cl.. 43 of char <0BJECT OR ERROR CODE}? 

A X packed arrayC1..53 of char <GETSYM RETURNS THIS}? 
COMMAND X CMDARRAY? 

TABLE J array Cl ..623 of Y? 

SYM X ( SYMBOL , LNEND , INDIRECT » UNDEF I NED ) ? 

LC JO.. 4095 <LOCATION COUNTER}? 

INDRCT .boolean <INDIRECT ADDRESS FLAG}? 

INTABLE .boolean <LABLE PRESENT IN LABEL TABLE}? 

OK J boolean <N0 EREROR FLAG ,PASS 1}? 

LTBL {array Cl.. 20,1.. 23 of char <LABEL TABLE}? 

VALUE X array Cl.. 203 of WRD <VALUE OF THE LABEL}? 

PAS1, FINP, FOUP i TEXT? 

NINPfNOUP X packed array Cl.. 93 of char? 
function INTTOHEX (Nt integer ) ♦ char? 
var 

T ♦ char? 
begin 

case N of 

0 X T.='0 / ? 

1 X Ti='l' ? 

2 i T:='2'? 

3 X T.='3 / ? 

4 J T.= , 4 / ? 

5 X T+= , 5 / ? 

6 X T. = y 6' ? 

7 X Tt='7'? 



PROGRAM ASSEMBLER < FI NP y PGUP y PAS1 ) ? 
label 

100 -{USED FOR ERROR TRAP IN PASS 1!? 
const 

KING ~ 65536 T16 BIT WORD!? 

*1* WDCk 

WRD ~0* * KING 5 

CMD A PRAY ~ packed array Cl* .53 of char TFOR MNEMONICS! 
Y = record 

CMD J CMDARRAY 

end CUSED IN MNEMONIC SEARCH! ? 

var 

X ichar? 

CC i integer T CHARACTER COUNT !? 

LL i integer -CLINE LENGTH! ? 

LINE {array Cl **811 of char? 

I J integer CNUMBER OF SYMBOLS IN SYMBOL TABLE!? 

J ♦ integer? 

M J integer CLINE NUMBER IN SOURCE FILE!? 

B i integer CGETNUM DEPOSITS NUMBER IN BT? 

JMPADR ♦ WRD CJUMP ADDRESSS FOR BRANCH INST.!? 

C ♦ packed array Cl* *4.1 of char COBJECT OR ERROR CODE!? 

A I packed arrayCl**53 of char CGETSYM RETURNS THIS!? 
COMMAND I CMDARRAY ? 

TABLE J array Cl **621 of Y? 

SYM J ( SYMBOL y LNEND y INDIRECT y UNDEFINED ) ? 

LC JO* *4095 CLOCATION COUNTER!? 

INDRCT ♦ boolean CINDIRECT ADDRESS FLAG!? 

INTABLE J boolean CLABLE PRESENT IN LABEL TABLE!? 

OK J boolean CNO EREROR FLAG yPASS 1!? 

LTBL {array Cl »»20y 1**23 of char CLABEL TABLE!? 

VALUE J array Cl **203 of WRD CVALUE OF THE LABEL!? 

F' AS 1 y F I NF‘ y FOUP J TEXT? 

NINPyNOUF’ J packed array Cl* *93 of char? 
function INTTOHEX(NJ integer) ♦ char? 
var 

T J char? 
begin 

case N of 

0 J T J = ' O' ? 

1 { T J - ' 1 ' ? 

2 J TJ='2'? 

3 J T*= , 3 / ? 

4 J TJ~'4'? 

\J * I vJ ? 

6 t T J ~ ' 6 ' ? 

7 J TJ='7'? 

8 J T{='8'? 

9 J TJ='9' ? 

10 J T ♦ ~ ' A ' ? 

11 J TJ-'B' ? 

12 t T ♦ ~ ' C ' ? 



Vi! 


13 i i 

14 i 

15 t T J = ' F ' 

end? 

INTTOHEXi=T 

end -C internal-to-hex >? 
function HEXTQINT{H*char ) ♦ inteder? 
var 

T i integer ? 
bed. in 

esse H of 

'O' $ T ♦ =0 y 

'i' i t:=i? 

'2' : TJ=2y 
'3' i T*=3? 

'4' i T ♦ =4 y 

/ cr / * *r + — nr £ 

J * I ♦*~jy 

' 6 ' i T ♦ =6 y 
'7' * T t =7 y 
'8' « TJ-8 J 
' 9 ' i T t -9 y 
'A' I Ti =10 y 

'B' J T J =1 1 y 
'C' i TJ=12y 
'D' : T J =13? 

'E' J T ♦ = 1 4 y 
'F' I T ♦ =15 

end ? 

HEXT01NTi=T 

end C hex-to- internal >y 

procedure ERRQRTABORTS CURRENT LINE PR0C» RESETS OK FLAG>? 
var 

K I inteder? 
bed in 

OK i =f a 1 se y WR I TELN < TT Y > y 
WRITEfF'ASl yCy '%%%' yM*6y ' ')? 

WRITE < TTY yCy '***' yMJ6y ' ' ) ? 

for Ki = 1 to LL do 
i n 

WRITE ( F’ASl yLINECKT ) ? WRITE (TTY* LINE! K3 ) 

end ? 

WRITELN < PAS1 ) y WRITELN < TTY ) y M i «M+1 5 
doto 100 

end y 

procedure SYNTAX? 
bed in 

CJ-'ERRS' y ERROR 

end 5 

procedure GETLINE -CCOPIES A LINE FROM SOURCE PROGRAMS 
bed in 

CC ♦ =0 y LL J=05 

while not EOLN(FINP)do 



begin 

L.L ♦ ~LL+1 ? READ ( FINP s> X ) ? LINECLL3 i=X 

end 

end -CEND OF GETLINE>? 

procedure GETSYM {RETURNS SYM-SYMBOL * INDIRECT s-Ll'NE END 3- ? 
var 

K ♦ integer? 
begin 

SYMJ --UNDEFINED? 

while(CC<LL)and(LINECCC+l 1 ■ ' ')do CCi=CC+l? 
if(CC as LL ) or ( L INEIICC+1 T ~ ' S') then SYf1i=LNEND 

if LINEtCC+lT in C'A'. «'Z'* 'O' .. '9'» » 
't'l then 

begin 

SYMJ -SYMBOL? KJ=0? 
repeat 

if K<5 then 
begin 

k:=k+i? ackk-line ccc+it 

end? 

CCJ==CC+1? 

if AIIKT in C » ' + ' , ' 3 then 

sym:=indirect? 

until ( CC : ~LL)or (LINECCC+ll-' ' ) ? 
while K<5 do 
begin 

KJ=K+1? ACKO t - ' ' 

end 

end 

else 

begin 

Ct-'ERRl ' ? ERROR 

end 

end? 

•TEND OF GETSYM> 

ocedure GETCODE -CUSED IN PASS2>? 
var 

K t integer? 
begin 

for K i ==1 to 4 do 
begin 

READ < PAS 1 yX) ? CCKTi=X 

end 

end ? 

ocedure LOOKUP -CLABEL TABLE IS SEARCHED}-? 
var 

K ♦ integer? 
begin 

INTABLE * : =false? Ki=0? 

while(K<“I )and(not INTABLE)do 
begin 



KO K+ 1? 

if <AC1D=LTBLCK » 11 >3nd< AC23=LTBLCK»23 ) then 
INTABLE Ot rue 

end ? 

if INTABLE then JMPADR } -VALUE CK3 

end ? 

procedure INSERT < INSERT A NEW LABELT? 
bed in 

IOI+1? 
if 1020 then 

bed in 

LTBLC Irl3*=AC13? LTBL C 1 1 21 J — A1I23 9 
VALUE CI3 0LC 

end 
else 
bed in 

C*«'ERR2 ' r ERROR 

end 

end ? 

procedure PLABEL {PROCESS THE LABELT? 
bed in 

if (AC 13 in C'A' ♦ ♦ 'Z' 3 ) snd( AC23 in L' '0 ' ♦ ♦ 3 ) then 
bed in 

LOOKUP ? 

if not INTABLE then INSERT 
else 
bed in 

CO'ERR4'? ERROR 

end 


end 

else 

Jljpdi r*i 

~ CO'ERR3'? ERROR 
end 

y 

procedure GETNUM -CB IS VALUE OF THE HUMBERT? 
vsr 

K ♦ inteder? 
bed in 

BOO? 

for KOI to 5 do 
bed in 

if ACK3 inC'A'.*'Z' »'*'*'+'* '3then SYN7 

if ACK3 <> ' ' then 

BOB*10 +HEXTOINT < ACK3 ) 

end 

end J 

procedure P INDIRECT ■£ INDIRECT ADDRESST? 
bed in 

if (A ~ '* 
else 


) then CC33 0'8 



if CA 
else 


) then CC33t«= y A 




- '*+ 


/ 


if (A ~ ' )then CC3^ J = ^ 9 " 

else 

bed in 

C ♦ = ' ERRS y y ERROR 

end 

end ? 

procedure PUMA {DIRECT MEMORY ADDRESS>y 
bed in 

GETNUM i 
if <B<128) then 
bed in 

CC311 J~INTTOTIEX(B div 16) y 
CE43 t “INTTOHEX < B mod 16) 

end 

else 
bed in 

C ♦ - ' ERR9 " y ERROR 

end 

end y 

procedure PSMIFTr 
bed in 

GETNUM y 

if B<16 then CC23i-INTT0HEX<B) 

else 
bed in 

C*~'ERRA' y ERROR 

end 

end y 

procedure PARPf 
bed in 

GETNUM y 

if B>2 then 
bed in 

C ♦ ~ ' ERRB ' y ERROR 

end 

else CC4T i=INTTOHEX(B) 

end J 

procedure PPAy 
bed in 

if A“'PAO ' then B*"~0 
else 

if A-'PAl ' then Bt~l 
else 

if A -~ ' PA2 ' then BJ=2 
©Is© 

if A='PA3 ' then BJ=3 
else 

if A- / PA4 ' then B l "4 
else 

if A^'PAS y then B*-5 



then 


© 1 se 

if A~ 'PA6 
else 

i f A ~ / F‘ A ? 
else 
bed in 
C J ~ ' ERRD ' ? 
end 

end ? 

procedure PAR? 
bed in 


if (A* 

'ARO 

' ) then Bt== O 

else 




if (A : 

» 'AR1 ' ) then BJ=1 


else 



bed in 

Ci== 'ERRE'i ERROR 

end 

end ? 

procedure CODETABLE? 
bed in 

TABLE IT 10 ♦ CMDJ ~ ' ABS '? 

T ABLE C 2 0 ♦ CMD * ' ADD '? 

TABLE II 30 ♦ CMD X : = ' ADDH '? 

TABLEE40 ♦ CMDi~"'ADDS '? 

TABLE C 50 ♦ CMD X == ' AND ' ? 

TABLEC60 ♦CMD*='APAC '? 

TABLEC70 ♦ CMD I = ' B ' ? 

TABLEE80 *CMDi~'BANZ '? 
TABLEC90*CMDi='BGEZ ' ? 
TABLECIOO ♦CMDJ='BG2 '? 
TABLEC110 ♦ CMD t = ' BIGZ '? 
TABLEC120 ♦CMD*= / BLEZ '? 

TABLEC130 «CMDi !=/ BLZ '? 
TABLEE140 ♦CMD*~'BNZ '? 

TABLEH 150 ♦ CMD J = 'BV '? 

TABLE C 160 ♦CMD5 :=/ BZ '? 
TABLEE170 4 CMDJ='CALA '? 
TABLEIL180 ♦ CMD J=' CALL '? 
TABLEIZ190 ♦ CMD *=' DINT '? 

TABLE C 200 ♦CMD*= / DMGV '? 

TABLE C 210 «CMD* = / EINT '? 
TABLEC220.CMD}*:' IN '? 

TABLE t 230 ♦CMD*='LAC '? 

T ABLE C 24 0. CMD t=' LACK '? 

TABLEC250*CMD; = 'L.AR '? 

TABLEC260 ♦ CMD *= 'LARK '? 

T ABLE C 27 0 ■. CMD X ~ ' LAPP ' ? 

T ABLE C 28 0 ♦ CMD * ~ ' LDP '? 
TABLEE290 ♦CMD*~' LDPK '? 
TABLEE3O0 ♦CMDJ^'LST '? 

TABLE C 310* CMD ::='LT '? 


' then 

ERROR 
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TABLE II' 32 3 «CMD«='LTA 'P 
TABLE L' 33 3 * CMD X ~ ' LTD " 5 
TABLE i: 34 3 ♦ CMD *»'MAR ' P 
TABLE C 35 3 « CMD X ~ ' MR Y ' 5 

TABLEC363 «CMD*~'MPYK 'P 
TABLE L" 37 3 « CMD X = ' NOP ' 5 

TABLE L" 38 3 * CMD X ~ ' OR ' P 
TABLEC393*CMDJ='0RG 'P 
TABLEC 40 3 ♦ CMD i-' OUT '} 

TABLE C 4 1 3 . CMD J ~ ' P AC 'P 
TABLEC 423 . CMD X * ' POP ' P 
TABLE C 43 3 ♦ CMD X » ' PUSH ' P 
TABLE C 44 3 ♦ CMD X ~ ' RET ' 5 
TABLEC 45 3 ♦ CMD ♦=' ROOM 'P 
TABLEC 46 3 ♦CMD*~"SACH 'P 
TABLE C473 ♦ CMD ♦ " SACL '$ 

TABLEC 48 3 « CMD X = / SAR 'P 
TABLEC493.CMD J='SOVM 'P 
TABLEC 50 3 * CMDJ ~'SPAC 'P 

TABLEC 51 3 ♦CMDJ-'SST ' P 
TABLEC 52 3 *CMDJ~'SUB 'P 

TABLEC 53 3 ♦CMDi-'SUBC 'P 
TABLEC543*CMD5~'SUBH 'P 
TABLE CSS 3 ♦ CMD ♦ ='SUBS 'P 

TABLEC 56 3 ♦CMDi-'TBLR 'P 
TABLEC573 ♦CMDJ= , TBLW '5 
TABLEC 58 3 ♦ CMD* ! ='XOR 'P 
TABLEC 59 3 ♦CMDJ-'ZAC 'P 
TABLEC603 *CMDJ~'ZALH 'P 
TABLEC613*CMD:='ZALS 'P 
TABLEC623 * CMD J-'ZEQ ' 

end P 

procedure WRITECQDE -CCODE IN PAS1 FILET P 
bed in 

WRITE <PAS1> C> ' 

1NTTQHEX(LC div 256) f 
INTTOHEX< (LC div 16)mod 16) » 
INTTQHEXCLC mod 16)) 

end $ 

procedure WRITETEXT tCOPY SOURCE PROGRAM*? 
vsr 

K i integer P 
bed in 

WRITE(PAS1 f MJ6? ' ')P 

for Ki-1 to LL do 

WRITE (PAS1 ?LINECK3 ) 5 
WRITELN<PAS1 ) P Mt=M+l 

end ? 

procedure SDMA TSHIFT AND DATA MEMORY ADDRESS * P 
1 h 

GETSYM? INDRCTJ-true? 

if ( SYM * LNENDUhen SYNTAX? 
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if (SYM = INDIRECT) then PINDIRECT 
else 
bed in 

INDRCT J -false ? PDMA 

end ? 

GETSYM? 

if (SYM - LNEND) then 

bed in 

cc2:ii“'0'? 

if INDRCT then CC4D:“'8' 

end 

else P SHI FT ? 

GETSYM ? 

if (SYM = LNEND) sr.d INDRCT then CC43i='8'? 
if (SYM <> LNEND) and not INDRCT then SYNTAX? 
if (SYM <> LNEND) and INDRCT then 
bed in 

PAR P? GETSYM? 

if (SYM <> LNEND) then SYNTAX 

end? 

WRITECODE? WRITETEXT? LCJ“LC+1 

end ? 

procedure DMACDAT A MEMORY ADDREST? 
bed in 

GETSYM? INDRCT I “true? 

if (SYM « LNEND) then SYNTAX? 

if (SYM = INDIRECT) then PINDIRECT 

else 
b 0 S{ i n 

INDRCT* =false» PDMA 

end? 

GETSYM? 

if (SYM ~ LNEND ) and INDRCT then CC4.]J = '8'? 
if (SYM <> LNEND) and not INDRCT then SYNTAX? 
if (SYM <> LNEND) and INDRCT then 
bed in 

PARP? GETSYM? 

if (SYM <> LNEND) then SYNTAX 

end? 

WRITECODE? WRITETEXT? LCJ“LC+i 

end? .. „ 

procedure BRANCHTBRANCH ADDRESS ) - > 

b 0 i n 

WRITECODE? WRITETEXT? GETSYM? 

if (SYM = LNEND) then SYNTAX? 

if (ACID in C'A'. *'2 / D)and(AC2D in C 'O' ♦ ♦ '9' 3 )ther. 

bed in 

LOOKUP? 

if INTABLE then 
bed in 

C C 1 3 i ' 0 ' ? 

CC23 S~INTTOHEX( JMPADR div 256)? 





CC33J=INTTOHEX( (JMF'ADR div 16) mod 16)? 
CC4II J=INTTOHEX( JMPADR mod 16) 

end 

else 

begin 

ci:i3:='rf cc23t~Ai:i3? 

CE33 ♦=AC23 ? 

CC43:=' ' 

end 

end else begin Ci='ERR7'? ERROR end? 

GETSYM? 

if (SYM <> LNEND) then SYNTAX? 

UIR.TTECODE? WRITELN< F'ASl ) ? LCJ=LC+2 

end? 

procedure PABS? 
begin 

GETSYM ? 

if SYM » LNEND then C J~ '7F88' 
else SYNTAX? 

UR ITECQDE ? URITETEXT ? LC i »LC+1 

end ? 

p rocedure PADD ? 
n 

CC13S“ , 0 / ? SDMA 

end ? 

procedure PADDH? 
begin 

CCi:iJ = '6'? CC23i = / 0 / ? 

DMA 

end ? 

procedure PADDS? 
begin 

CCi:i*“ / 6 / f CC23i = / l / ? 

DMA 

end ? 

procedure PAND? 
begin 

CCIII^'?'? CC23I = '9 / ? 

DMA 

end ? 

procedure PAP AC? 
begin 

GETSYM? 

if SYM = LNEND then ' 7FSF ' 

else SYNTAX? 

WRITECODE? URITETEXT? LCJ==LC+1 

end ? 

procedure PB? 
best in 

Ci^'F‘900'? BRANCH 

end ? 

procedure F’BANZ? 



begin 

CJ-~ / F400 / ? BRANCH 

end ? 

procedure PBGEZ? 
bed i n 

CJ-'FIiOO'? BRANCH 

end? 

procedure PBGZ? 
begin 

CJ^'FCGO'? BRANCH 

end ? 

procedure PBIOZ? 
begin 

CI= / F600 / ? BRANCH 

end ? 

procedure PBLEZ? 
i n 

C J - 'FBOO ' ? BRANCH 

end ? 

procedure PBLZ? 

H & i n 

CJ-'FAOO'? BRANCH 

end ? 

procedure PBNZ? 
begin 

C J ™ / l-E00 ' ? BRANCH 

end ? 

procedure PBV? 

hpd *j |**| 

" ' ‘ C J -'F500 ' ? BRANCH 
end ? 

procedure PBZ? 
begin 

C J ~ / FFOO / ? BRANCH 

end ? 

procedure PCALA? 
begin 

GETSYM? 
if SYM « L.NEND then CJ* ' 

else SYNTAX? 

WRITEC0DE?WR1TETEXT? LCJ = 

end ? 

procedure PC ALL? 

begin ^ fq<^o / $ BRANCH 
end ? 

procedure PBINT? 
begin 

GETSYM? 

if SYM - LNENB then CJ™ 
else SYNTAX? , a 

WRITECODE? WRITE TEX I > LC 


/l“HU 

LC+1 


7F81' 
X -LC+1 
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end ? 

procedure PDMQV? 
bed in 

CC13:»'4'> CC23* = ''9' ? 

DMA 

end ? 

p r ocedu re FEINT? 
bed in 

GETSYM ? 

if SYM - LNEND then CJ™ '7F82' 
else SYNTAX? 

URITECODE? WRITETEXT? LCJ>=LC+1 

end ? 

procedure PIN? 
bed in 

INDRCT* -true? CCi:ii = '4'? 

GETSYM? 

if (SYM ~ LNEND) then SYNTAX? 
if (SYM * INDIRECT) then PINDIRECT 
else 
bed .in 

INDRCT* -false? PDMA 

end? 

GETSYM? 

if (SYM == LNEND) then SYNTAX 
else 
bed in 

PPA ? CC23 * “INTTGHEX ( B ) 

end? 

GETSYM ? 

if (SYM - LNEND ) and INDRCT then Cn42J= / 8 / ? 
if (SYM <> LNEND) and not INDRCT then SYNTAX? 
if (SYM <> LNEND) and INDRCT then 

bed in 

pADp ; PiFTSYM* 

if (SYM <> LNEND) then SYNTAX 

end? 

URITECODE? WRITETEXT? L.C J==LC+1 

end ? 

procedure PLAC? 
bed in 

CU.li^'2'y SDMA 

end? 

procedure PLACK? 
bed in 

GETSYM ? 

if (SYM <> LNEND) then GETNUM 
else SYNTAX? 

if B<256 then 
bed in 

CC13 ♦="7 / ? 

CC23:='E / ? 
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CCS 3 ♦ -INTTOHEX (B div 16)? 

CC43 ♦”INTTOHEX(B mod 1 6) 

end 

else SYNTAX? 

GETSYM? 

if (SYM <> LNEND) then SYNTAX? 

WRITECODE? MRITETEXT? LCJ=LC+1 

end ? 

p rocedu re PL AR ? 
bed in 

GETSYM ? 

if (SYM <> LNEND) or (SYM <> INDIRECT) then PAR 
else SYNTAX? 

CCllt^'S' ?CC2!K == INTTOHEX ( B-fS ) ? DMA 

end ? 

procedure PLARK? 
bed in 

GETSYM ? 

if (SYM -SYMBOL ) then PAR 

else SYNTAX? 

CCllt-'?' ? 

CC23 ♦ -INTTOHEX ( B ) ? 

GETSYM ? 

if (SYM <> LNEND) then GETNUM 
else SYNTAX? 
if B<256 then 
bedin 

CC33 *~INTTOHEX(B div 16)? 
CC43i==INTT0HEX(B mod 16) 

end 

else SYNTAX? 

GETSYM? 

if (SYM <> LNEND) then SYNTAX? 

WRITECODE? WRITE TEXT ? LCt=LC+l 

end ? 

procedure PLARP? 
bedin 

GETSYM ? 

if (SYM <> LNEND) then GETNUM 
else SYNTAX? 
if B<2 then 
bedin 

ccu;= , 6 / ? 

CL23 ♦“'S'? 

CC33 ♦=' 8 ' ? 

CC43 i--INTTOHEX(B ) 

end 

else SYNTAX? 

GETSYM? 

if (SYM <> LNEND) then SYNTAX? 

WRITECODE? WRITETEXT? LCJ“LC+1 

end ? 
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procedure PLDP? 
bed in 

? CC23i = / F / f 

DMA 

end ? 

procedure PLDPK? 
bed in 

GETSYM ? 

if ( SYM <> LNEND) then GETNUM 
else SYNTAX? 
if B<2 then 
bed in 

ca]i='6'> 

CE2JJ= / E'? 

CC3:ii = '()' ? 

C L' 4 3 ♦ ~ INTTOHEX ( B ) 

else d SYNTAX? 

GETSYM ? 

if (SYM <> LNEND) then SYNTAX? 
WRITECQDE? WRITE TEXT ? LCJ=LC+1 

end ? 

procedure PL ST ? 
bed in 

CE13^'7'? CC23J~'B / ? DMA 

end ? 

procedure PLT? 
bed in 

CC13i»'6'? CC23 A / ? 

DMA 

end ? 

procedure PLTA? 
bed in 

CC1 3 ♦- '6 ' ? CC23 1 ~ ' C ' ? 

DMA 

end? 

p rocedu re PLTD ? 
bed in 

CC13J : ~ , 6 / ? CC23I = 'B / ? 

DMA 

end ? 

p rocedu re PM AR ? 
bed in 

Ci:il l = '6' 5 CE23 J-'S' ? 

GETSYM? 

if (SYM * INDIRECT) then PINDIRECT 
else SYNTAX? 

GETSYM ? 

if (SYM = LNEND) then CC43J='8' 

else 
bed in 

PARP ? 


GETSYM? 



if (SYM <> LNEND > then SYNTAX 

end ? 

WRITECODE ? WRITE TEXT ? LCJ=LC+1 

end ? 

procedure PMPY ? 
bed in 

cznt^'6' ? cl'2:u== / » / ? 

DMA 

end ? 

procedure PMPYK? 
vsr 

K i inteder ? POSITIVE i boolean f 
bed in 

GETSYM ? POS IT I VE J »t rue ? 
if AL13 = then 

bed in 

POSITIVE {"false? GETSYM 

end ? 

if (SYM - SYMBOL) then GETNUM 
else SYNTAX? 

if (POSITIVE and ( B>4095 ) > o r 
( no t POS I T I VE arid ( B>4096 ) ) then 
bed in 

C ♦ ~ ' EREC ' ? ERROR 

end? 

if not POSITIVE then B{=(8192 - B 
K:=B div 4096? 

CC11 ♦~INTT0HEX(8+K) ? 

CC23 J“INTTOHEX( (B div 256) mod 16)? 
CII3IJ -INTTOHEX ( (B div 16)mod 16)? 

CC41 *~INTTOHEX(B mod 16)? 

GETSYM? 

if (SYM <> LNEND) then SYNTAX? 
WRITECODE? WRITETEXT? LCt=LC+l 

end? 

p rocedu re PNOP ? 
bed in 

GETSYM ? 

if SYM * LNEND then Cl = '7F80' 
else SYNTAX? 

WRITECODE? WRITETEXT? LCJ=LC+1 

end ? 

procedure POR ? 
bed in 

CC13i= / 7 , f cn21J= / A'? 

DMA 

end? 

p rocedu re PORG ? 
bed in 

GETSYM ? 

if (SYM * LNEND) then SYNTAX? 

GETNUM? 
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ifCB >4095) then 

h & <4 i n 

Ci-'ERRC' ? ERROR 

end? 

LCJ ~B? 

CC IK ? 

C H2:i J~INTTQHEX ( B div 256)? 

Ci:33i~INTT0HEX( (B div 16)mod 16)? 

CC43 J~-INTTOHEX(B mod 16)? 

WRITECODE ? WRITE TEXT 

end ? 

p roc e d u r e POUT? 
bed in 

INDRCT i~true? C 
GETSYM ? 

if (SYM * LNEND) then SYNTAX? 
if ( SYM == INDIRECT) then P INDIRECT 
else 
bed in 

INDRCT S -false? 

RDM A 

end? 

GETSYM ? 

if (SYM » LNEND) then SYNTAX 
else 
bed in 

PPA ? 

CC23 J-INTT0HEX(B+8) 

end? 

GETSYM? 

if (SYM ® LNEND ) and INDRCT then CC43?= / 8 / ? 
if (SYM <> LNEND) end not INDRCT then SYNTAX? 
if (SYM <> LNEND ) end INDRCT then 

bed in 

PARP? GETSYM? 

if (SYM <> LNEND) then SYNTAX 

end? 

WRITECODE? WRITETEXT? LCi=LC+l 

end ? 

p v' o c e d u r e P P A C ? 
bed in 

GETSYM ? 

if SYM = LNEND then Ci= '7FBE' 
else SYNTAX? 

WRITECODE? WRITETEXT? LCi=LC+l 

end ? 

proce d u r e P P 0 P ? 
bed in 

GETSYM? 

if SYM = LNEND then C? = '7F9D' 
else SYNTAX? 

WRITECODE? WRITETEXT? LC!=LC+1 
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end? 

p rocedu re PPUSH ? 
bed in 

GETSYM ? 

if SYM * LNEND then C* = ' 7F9C ' 
else SYNTAX? 

WRITES ODE? WRITETEXT? LCi=LC+l 

end ? 

p roc edu re PRET ? 
bed in 

GETSYM? 

if SYM ® LNEND then Ci= ' 7FSD ' 
else SYNTAX? 

WRITECODE? WRITETEXT? LC^LC+1 

end? 

procedure PROVM? 
bed in 

GETSYM ? 

if SYM ® LNEND then CJ« '7F8A' 
else SYNTAX? 

WRITECODE? WRITETEXT? LCJ=LC+1 

end? 

procedure PSACH? 
bed i n 

INDRCT X -true ? CC 1 3 i ® ' 5 ' ? 

GETSYM? 

if (SYM » LNEND) then SYNTAX? 
if (SYM « INDIRECT) then PINDIRECT 
else 
bed in 

INDRCT* -false? 

PDMA 

end ? 

GETSYM? 

if (SYM » LNEND) then 
bed in 

CC23 :='S'r 

if INDRCT then CLAUD'S' 

end 
else 
bed in 

PSHIFT? 

if (B=0)or(B - 1 ) or (B - 4) then 
bed in 

B X ~B+8 ? CE23 J =INTTOHEX(B) ? 

end 
else 
bed in 

CJ='ERRA'? ERROR 

end ? 

GETSYM? 

:L f ( S YM-LNEND ) end INDRCT then CE43:«'8'? 
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if (SYMOLNEND)snd not INDRCT then SYNTAX ? 

iff SYM <> LNEND ) and INDRCT then 
bedin 

PARR ? GETSYM ? 

if (SYM <> LNEND) then SYNTAX 

end 

end ? 

WRITECQDE? WRITETEXT? LC:=LC+1 

end ? 

procedure PS ACL ? 
bed in 

INDRCT ♦“true? CHUB'S' ? 

GETSYM? 

if (SYM ~ LNEND) then SYNTAX? 

if ( SYM ~ INDIRECT ) then PINDIRECT 

else 

fa 6* <3 3 r* 

INDRCT i==f else? 

PDMA 

end? 

GETSYM? 

if (SYM * LNEND) then 
bed in 

cczrj :='()'? 

if INDRCT then CC4SJ= , 8 / 

end 
else 
bed in 

PSHIFT? 
if (BOO) then 

bed in 

Ci='ERRA'? ERROR 

end? 

GETSYM? 

if (SYM-LNEND) end INDRCT then CC43i= , 8'? 
i f ( SYMOLNEND ) end not INDRCT then SYNTAX? 

if (SYM <> LNEND) and INDRCT then 
bedin 

PARP? GETSYM? 

if (SYM <> LNEND) then SYNTAX 

end 

end ? 

WRITECODE? WRITETEXT? LCI=LC+1 

end? 

p r oce du r e PS AR ? 
bedin 

GETSYM? 

i f ( SYM <> LNEND) or (SYM OINDIRECT) then PAR 

else SYNTAX? 

ci::i:i:='3 / ? 

C I! 2 □ ♦ : ~INTTGHEX (B) ? 

GETSYM? INDRCTJ -true? 
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if ( SYM = LNEND) then SYNTAX ? 
if ( SYM » INDIRECT) then PINDIRECT 
else 
begin 

I NDRCT ♦ =f 3 1 se ? 

PDMA 

end? 

GETSYM? 

if (SYM » LNENDJsnd I NDRCT then CC43J“ / 8"? 
i f < SYM <> LNEND) and not INDRCT then SYNTAX? 

if (SYM <> LNEND) and INDRCT then 
begin 

PARP? GETSYM? 

if (SYM <> LNEND) then SYNTAX 

end? 

■URITECODE? WRITETEXT? LCJ=LC+1 
end ? 

procedure PSOVM? 
begin 

GETSYM ? 

if SYM « LNEND then Ci* '7FBB' 
else SYNTAX? 

URITECODE? WRITETEXT? LCJ=LC+1 

end? 

procedure PSPAC? 
begin 

GETSYM? 

if SYM a LNEND then CJ« '7F90' 
else SYNTAX? 

URITECODE? WRITETEXT? LCi=LC+l 

end ? 

procedure PSST? 
hi p <3 i n 

CCl CCl’K^'C'? 

DMA 

end? 

procedure PSUB? 
begin 

CLllJ-'l"? SDMA 

end? 

procedure F'SUBC? 
begin 

Ci:i:u = '6'? CC2Ii:=='4'? 

DMA 

end? 

procedure PSUBH? 
begin 

Cmi = / 6 / ? CC2Ii: = '2'? 

DMA 

end ? 

procedure F’SUBS? 
begin 
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CC13J»'A'? CZ21t = '3'i 
DMA 

end ? 

procedure PTBLR? 
b0£*s i n 

ccni»'A'? ? 

DMA 

end? 

procedure PTBLW? 
bed in 

CC13J*'7 # J CC23i«'D'r 
DMA 

end? 

procedure PXOR? 
bed i n 

CC13is'7'? CC23:«'8'J 

DMA 

end ? 

p rocedure PZAC ? 
bedin 

GETSYM? 

if SYM ~ LNEND then CJ== y 7F89' 
el«>e SYNTAX? 

WRITECODE? WRITETEXT? LCJ=LC+1 

end? 

procedure PZALH? 
bedin 

CCHi-'A'? CC23:='5'? 

DMA 

end? 

procedure PZALS? 
bedin 

CC13J»'6'? CC23t='6'? 

DMA 

end? 

p rocedu re l-'ZEQ ? 
var 

POSITIVE » ONE J boolean? 
bedin 

GETSYM? ONE ♦= true? 

if SYM - LNEND then SYNTAX? 

while SYM <> LNEND do 

bedin 

POSITIVE ♦- true? 
if A Cl 1 = then 

bedin 

POSITIVE J=f else? GETSYM 

end ? 

if SYM = SYMBOL then GETNUM 
else SYNTAX? 

if not POSITIVE then BS=<65536 - B)? 
CCUi-INTTOHEXCB div 4096)? 



CC23J=INTT0HEXC<B div 256>mod 16) 5 
CL3K=INTT0HEX((B div 16) mod 16)v 
CC4) ♦ SS INTTQHEX(B mod 16)5 
WRITEC0DE5 

if ONE then WRITETEXT 
else WRITELN (F'ASl ) 5 
0NEi=false5 GETSYM5 LCS=LC+1 

end 

end? 

procedure GETCOMMAND {SELECTS PROPER PROCEDURE)- 5 
var 

DONE ♦ boolean 5 

F I RST > LAST s> M I DDLE i i ritede r 5 
bed in 

DONE ♦ -false 5 COMMAND *=A5 
FIRST J -1 5 LAST *~62 5 

while ( (LAST >» FIRST)and(not DONE)) do 
bed in 

MIDDLE ♦=( F I RST +L AST ) d i v 2 5 
if COMMAND > TABLECMIDBLE3 *CMD then 
FIRST i -MIDDLE + 1 

else 

if COMMAND < TABLECMIDDLE3 + CMD then 
LASTJ=MIDDLE - 1 

else 

if COMMAND-TABLECMIDDLEH * CMD then 
DONE := true 

end 5 

if DONE then 
case MIDDLE of 

1 t PADS 5 

2 t PADD5 

3 i PADDH5 

4 t PADDS5 

5 t PAND 5 

6 l PAPAC5 

7 t PB5 

8 i PBANZ5 

9 t PBGEZ5 

10 : PBGZ5 

11 t PBI0Z5 

12 t PBLEZ5 

13 t PBL.Z5 

14 i PBNZ5 

15 i PB 05 

16 J PBZ5 

17 l PC ALA 5 

18 i PCALL5 

19 i PD I NT 5 

20 t PDM0V5 

21 t PEI NT 5 

22 i PIN 5 



23 

4 

4 

PLAC? 

24 

4 

4 

PLACK? 

25 

4 

* 

FLAP? 

26 

4 

4 

PLARK ? 

27 

4 

4 

PL ARP) 

28 

4 

4 

PLDPJ 

29 

4 

4 

PLDPK ? 

30 

4 

♦ 

PLST ? 

31 

4 

4 

PLT ? 

32 

4 

4 

PLTA? 

33 

4 

4 

PLTD? 

34 

4 

4 

PMAR ? 

35 

4 

4 

PMPY ? 

36 

4 

4 

PMPYK? 

37 

4 

4 

PNOP? 

38 

4 

4 

POR ? 

39 

4 

4 

PORG? 

40 

4 

4 

POUT? 

41 

4 

4 

PP AC ? 

42 

4 

4 

PPOP? 

43 

4 

4 

PPUSH ? 

44 

4 

4 

PRET? 

45 

4 

4 

PROUM? 

46 

4 

4 

PSACH? 

47 

4 

4 

PSACL. ? 

48 

4 

4 

PSAR ? 

49 

4 

4 

PSOVM? 

50 

4 

4 

PSPAC ? 

51 

4 

4 

PSST ? 

so 

J A- 

4 

4 

PSUB ? 

53 

4 

4 

PSUBC ? 

54 

4 

4 

PSUBH ? 

55 

4 

4 

PSUBS? 

56 

4 

4 

PTBLR? 

57 

4 

4 

PTBLW ? 

58 

4 

4 

PXOR? 

59 

4 

4 

PZAC? 

60 

4 

4 

PZALH? 

61 

4 

4 

PZALS? 

62 

4 

4 

PZEQ 


end 
else 
bed in 

C*-' ERR6 ' ? ERROR 

end 

end ? 

■CM A IN PROGRAM BEGINS!)- 
■C INPUT-OUTPUT PILE DECLARATION!)- 

bed in 

WRITE (TTY ? 'GIVE INPUT FILE NAME i ' 
li*0» 

while not EQLN(TTY)do GET (TTY) ? 


>? BREAK (TTY) 



*s< 


GET (TTY) ? 

while not EQLN(TTY) do 
bed in 

101+15 

if I <> & then NINPCI3 OTTY~5 
GET (TTY) 


end? 

while I <6 do 
bed in 

I OI+l 5 NINPCI3 O' ' 

end 5 

NINPC73 O' I ' 5 
NINPCSilO'N'f 
NINPC9TO'P' 5 

t> 1.7 ci p:* t ( in* t N p:* « JsJ T N P ) $ 

WRITECTTYn 'GIVE OUTPUT FILE NAME J ')5 BREAK (TTY) 5 
100 5 

while not EOL_N(TTY)do GET (TTY) 5 
GET (TTY) 5 

while not EOLN ( TTY ) do 
bed in 


j * .... y y * 

if 106 then NOUPm OTTY~5 
GET (TTY) 

end 5 

while I <6 do 
bed in 

101 + 15 NOUPC I ]* = ' ' 


end 5 

NOUPC7:iO'0'5 
NOIJPCSIIO'B ' i 
N0UPC93O' J'$ 
REWRITE (FOUPyNOUP) 5 


•CPASS ONE BEGINS}- 

1005 MO05-CLABEL AND LINE 
OK t » t rue 5 REWR I TE ( PAS 1 ) 5 -COK 


# INITIALIZED}- 

FLAG & PAS1 FILE INITIALIZED}- 


MO M+l 5 
LC 00 5 
CODETABLE 5 
repeat 

GETLINE5 GETSYM5 

if (SYM = SYMBOL ) arid ( LI NEE3 3 = '!')then 
bed in 

PLABEL 5 
GETSYM 

end ? 

if SYM <> LNEND then GETCOMMANB 

else SYNTAX? 

100 ti 

READLN(FINP) 
until EOF(FINP) 5 

•CRASS TWO BEG INST 





if OK then 
bed in 

RESET < F'ASl ) ? 

while not EOF (F’ASl) do 

bed in 

GET CODE ? 

if (CC13 * , >K / )3nd<CC43 «= ' 7 ) then 
bed in 

AC13:=CC23? 

AC23i“CC33* 

LOOKUP? 

if INTABLE then 
bed in 

CC13:='0' ? 

CE23 J = INTTOHEX< JMPADR div 256)? 
CC33J«INTTOHEX( ( JMPADR div 16)mod 16)? 
CC43 i«INTTOHEX< JMPADR mod 16)? 

end 

else c 

CJ* 'ERR) i' 

end? 

WRITE (FOUF’yC) ? 
while not EOLN(PASl)do 
bed in 

READ < F’ASl y X > ? WRITE ( FOUF’ y X ) 

end ? 

READLN< F'ASl ) ? WRITELN ( FOUP ) 

end 

end 


end 
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APPENDIX D 

SIMULATOR PROGRAM LISTING 


PROGRAM SIMULATOR(TTYf FOBJ»INPUT » OUTPUT) ? 
const 

KING=4294967296?-C2**32} 

QUEEN=2147483648?-C2**31} 

R00K=65536 ? -C2** 1 6} 

KNIGHT=32768 ? -C2**15> 

PAWN=4096?-C2**15} 

NBRK=8 < SIZE OF THE BREAK-POINT TABLE }? 

type 

WRD=0* *65535? 

LOCATIONS* *4095? 

CMDARRAY=Pscked array Cl* *83 of char? 

Y= record 

CMD ♦ CMDARRAY 

end? 

var 

F'MEMORY ♦ array CO* *40953 of WRD ? -Cprodram memory} 

DMEMORY X array CO. *1433 of WRD?-Cdata memory} 

INPORT J array CO*. 73 of WRD? 

OUTPORT J array CO*. 73 of WRD ? 

IR» ARO » AR1 »TR ♦ WRD? 

IRHfIRL J 0..255? 

PCrLOW,HIGH X 0**4095? 

STACK X array CO* *33 of 0**4095? 

BRKPT X packed array CO* *40953 of boolean CBRKPT FLAGS}? 
BRKTABLE ♦ array C0**NBRK3 of record -Ctable of break-points 

FLAG X boolean? 

PLACE J 0**4095 

end? 

ERRFLAG i boolean -C unimplemented instruction flad }? 
TRFLG»FLGTR X boolean -CTRACE FLAG}? 

OVM : 0..1? 

CK J 0* *5000000flCCL0CK CYCLES}? 

BIOjOVFL* INTMr ARP»DP J0**1? a 

ACC f F'R f SCRATCH » TEMP X 0 *♦ 4297967295? 

SYM ♦ C IDENTIFIER t NUMBER r SLASH * LNEND» UNDEFINED) ? 

A»C0MMAND Jpacked array Cl**83 of char-Clexeme/command}? 

TABLE X array Cl *.203 of Y ? 

B ♦ integer -Cnumeric lexeme }? 

LINE * array Cl. *813 of char -Ccommand line }? 

CC ♦ integer {character count }? 

LL ♦ integer -Cline lendth }? 

RATE X inteder-CUSER DEFINED INTERRUPT INTERVAL}? 

INTRFLG J boo lean-C INTERRUPT ACTIVE FLAG}? 

FOBJ i TEXT? 

NOB J * packed array Cl* *93 of char? 
function INTTQHEXCNt inteder) * char? 



PROGRAM SIMULATOR < TTY y FOB J * I NPUT v OUTPUT ) ? 
const 

KING~429496?296?C2i|o|t32> 

QUEEN*21474S3648K2#*31> 

ROOK-65536 ? -C2*#16> 

KNIGHT -32768 ? C2>Kifcl 5> 

PAWN-4096 ? C2** 1 5> 

NBRK-8 C SIZE OF THE BREAK-POINT TABLE >5 

type 

WRD-O* *65535? 

LOCATIONS. .4095* 

CMDARRAY^packed array III* *83 of char? 

Y- record 

CMD SCMDARRAY 

end ? 

var 

PMEMORY ♦ array CO* *40953 of WRD?-Orodranti memory> 

DMEMORY i array CO* *1433 of WRD?-Cdata memory! 

INPORT J array CO* *73 of WRD ? 

OUTPORT * array CO*. 73 of WRD? 

IRyAROyARlyTR ♦ WRD ? 

IRHvIRL * 0**255? 

PC y LOW t HIGH * 0**4095? 

STACK t array CO. *33 of 0..4095? 

BRKPT t packed array CO* *40953 of boolean -CBRKPT FLAGS>? 
BRKTABLE ♦ array C0..NBRK3 of record -Ctsble of break-points 

FLAG i boolean? 

PLACE t 0**4095 

end? 

ERRFLAG i boolean -C uriimplemented instruction flag >? 

TRI-LG yFLGTR l boolean -CTRACE FLAG>? 

GUM t 0**1? 

CK t 0. .SOOOOOOOOCCLOCK CYCL.ES>? 

BIOyOVFLy INTMyARPyDP J0..1? a 

ACC y PR y SCRATCH y TEMP ♦ 0**4297967295? 

SYM i (IDENTIFIERyNUMBERySLASHyLNENDy UNDEFINED) ? 
AyCOMMAND.packed array Cl*. 83 of char-tlexeme/commandT? 

TABLE i array 111**203 of Y ? 

B t integer {numeric lexeme >? 

LINE i array Cl *.813 of char {command line >? 

CC + integer {character count >? 

L.L. * integer -Cline length >? 

RATE t irvteger-CUSER DEFINED INTERRUPT INTERUAL>? 

INTRFLG * booleari-C INTERRUPT ACTIUE FLAG>? 

FOBJ i TEXT? 

NOBJ i packed array Cl* *93 of char? 
function INTTOHEX ( N ♦ integer ) * char? 

var 

T ♦ char? 
begin 

case N of 

0 : Tt - ' 0 ' ? 





1 i T*~' i' } 

2 X T ♦ = ' 2 ' ? 

3 X T*~'3' ? 

4 X 7 t-'4'i 

5 X T ♦ ~ ' 5 ' 9 

6 X 7 :='6'v 

7 i 7X~'7' i 

8 X TJ='8'J 

9 X T ♦ = ' 9 ' v 

10 X 7t~'fh'i 

11 X Ti-='B'y 

12 X -n-'C '} 

13 { T ♦ ~ ' D ' y 

14 i Ti~'E' ? 

15 X T ♦ ' F ' 

end? 

1NTT0HEXJ ~T 

end -C internal-to-hex > ? 
f unct i on HEXTO I NT <H* char ) i i ntede r ? 
var 

T * intedery 
bed in 


caise H of 



'O' 

4 

4 

T ♦ =0 y 

'1' 

4 

4 

Ti=l? 

'2' 

♦ 

4 

t:=2s 

'3' 

♦ 

4 

•n=3? 

'4' 

4 

4 

TJ=4y 

/ c:; / 

J 

4 

4 

T t =5 1 

'6' 

4 

4 

<Ss 

-o 

fi 

/ y / 

4 

4 

T X =7 5 

'8' 

4 

4 

n=8? 

/ * 

4 

4 

TJ =9? 

'A' 

4 

4 

Tt=10y 

'B' 

4 

4 

T ♦ ~1 1 y 

'C' 

4 

4 

T*=12y 

'D' 

4 

4 

T* ~13y 

'E' 

4 

4 

T J = 1 4 y 

t p * 

4 

4 

T ♦ = 1 5 


end f 

HEXTOINTi=T 

end ■€ hex-to-internal > > 

procedure INITCRESETS ALL EXCEPT PROG MEM 8 0VFL>y 
var 

K ♦ intedery 
bed in 

for K« -0 to 143 do DMEM0RYCK3 {=0? 

for K*-0 to 7 do 
b0j=i i n 

INP0RTCK3 0UTPQRTEK3 ♦ -0 

end i 

for K 4—0 *to 3 do STACK CKH i ~0 ? 



\ss 


acc3=o i pr3=05 pc 3 = 0 5 aro3=o5 aru=05 
tr3=05 arp : =05 dp 3 = 0 5 ovm3=05 bio 3 = 1 5 

IiMTH 3 =05 CK3=0 

end 5 

procedure LOAD 5 {PROGRAM ? CONSTANTS & DATA IN PMEMORY> 
vsr 

I 3 intederS 
PLOC 3 0*,409S5 

X i cher 5 
i n 

WRITE( TTY i 'GIVE OBJ FILENAME 3 ')} 

BREAK (TTY) 5 13=05 

while not EOLN(TTY)do GET (TTY) 5 

GET(TTY) 5 

while not EOLN(TTY)do 
bed .in 

I i =1+3. 5 

if I<=6 then NOBJCI 1 3=TTY"5 
GET (TTY) 

end 5 

while I <6 do 
bed in 

13=1+15 NOBJC I J ♦ = ' ' 

end 5 

NQBJC73 3 = ' 0' 5NQBJC83 3 = 'B' 5NOBJC91J = / J' 5 
RESET ( FOB J > NOB J > 5 B3=05 
for 13 = 1 to 4 do 
i n 

READ ( FOB JkX) 5 ACI3 3=X 

end 5 

for 13=2 to 4 do B3=B#16 +HEXTOINT (ACI3 ) 5 
PC 3 =B 5 PLOC 3 =B 5 
READLN(FOBJ) 5 
while not E0F(F0BJ)do 
bed in 

B3=05 

for 13=1 to 4 do 
be 3 in 

READ ( FOB J»X) 5 ACI13=X 

end 5 

if ACl}*'*' then 
bed in 

for 13=2 to 4 do 

B3=B*16+HEXTOINT(ACI3)5 

PL0C3=B 

end 
else 
bed in 

for 13=1 to 4 do 

B3=B*16 +HEXT0INT (AEI3) 5 

PMEM0RYCPL0C1 3=B5 
PL0C3=(PL0C+1 )mod 4096 



end 




end? 

REABLN(FOBJ) 

end ? 

procedure GETSYH -C lexical analyser >? 
var 

K ♦ integer? 
begin 

SYM I “UNDEFINED ? 

while(CC<LL> and (LINECCC+1 3™' ')do CCi=CC+J 5 

if CC-LL then SYM1=LNEND 

else 

if LINECCC+1 3 in L"'A'«*'Z'y'0'«*'?'3 then 
begin 

SYMt=NUMBER? KJ=0? Bi^O? 
repeat 

if K<8 then 
begin 

K J-K+l 5 ACK3 i “LINECCC+1 3 

end ? 

CCL=CC+1? 

if ACK3 in C'G'm'Z'] then 
SYM ♦-IDENTIFIER 

until (CC~LL)or not < LINECCC+1 3 in 
C'A' ♦♦'Z'n '0' ♦♦'9'3)5 
while K<8 do 

begin KJ=K+1? ACK3S=' ' 
end? 

if SYM-NUMBER then 

for KJ=1 to 8 do 

if ACK3<>' ' then 

B t =B* 1 6+I-IEXT0 1 NT ( A C K 3 ) 

end 

else 

begin 

if LINECCC+1 3='/' then SYMI=SLASH? 
CCJ-CC+l 

end 

end -C get sy in >? 
procedure ERROR? {COMMAND ERR0R> 
begin 

WRITELN(TTY) ? 

WRITELN(TTY * 'Command-syntax-error ' ) 
end i error >? 

Procedure GETLINE? {COPY ONE LINE3- 
b 0 ^ i n 

while not E0LN(TTY)do GET < TTY) ? 

GET (TTY) ?CC1=0? LLi~Q? 

while not E0LN(TTY)do 

begin LL ♦ -LL+1 ? LINECLL3 t ®TTY~? GET (TTY) 

end 

end •£ get line >? 
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procedure DEPOSITDKDEPOSIT IN DATA MEMORY.'}- 
var 

BLOC i 0**143? 

T J packed array Cl* *83 of char? 
begin 

GETSYM ? 

if SYM--NUMBER then 
begin 

BLOCJ-B mod 144? 

f. ga p p ^ ^ 

AC13J=INTT0HEX(BL0C div 16)? 

AC23 ♦ -INTTOHEX (BLOC mod 16)? 

WRITE ( TTY » AC 1 3 * A C23 * V ' ) ? 

BREAK ( TTY ) ? GETL I NE ? GETSYM ? 
if SYM -NUMBER then 
begin 

while B>65535 do BJ=B mod ROOK? 
DMEM0RYCDL0C3 J=B? 

BLOC }*<DL0C+1) mod 144? 

end 

else 

if SYMOLNEND then ERROR? 
until SYM=LNENB 

end 

else ERROR 
end ■CDEPOSITEO ? 

procedure D I SPL AYD ? -CD I SPLAY DATA MEMORY* 
var 

BLOC ♦ 0* ♦ 143? 
begin 

GETSYM? 

if SYM^NUMBER then 
begin 

BL0CJ--B mod 144? 
repeat 

AC 13 J-INTTOHEX (BLOC div 16)? 

A C 2 3 ♦ = I NTT OHEX ( BLOC mod 16 )? 

WRITE < TTY *AC13*AC23* ' /' , 

INTTOHEX ( BMEM0RYCBL0C3 div PAWN)* 
INTTOHEX < (BMEM0RYCBL0C3 div 256)mod 16)* 
INTT0HEX( (BMEMORYCBLOC3 div 16)mod 16)* 
INTTOHEX (BMEMORYC BLOC 3 mod 16 ) ) ? 

BREAK (TTY ) ? GETLINE * GETSYM? 
if SYMOSLASH then 

BLOC ♦ = < BL0C+ 1 ) mod 144? 
until SYM=SLASH 

end 

else ERROF? 

end-CDISPLAY BATA MEM0RY>? 
procedure BEPOSITP? 
var 

PLOC JO* *4095? 



\Sfc 


be 3 in 

GETSYM? 

if SYM-NUMBER then 
begin 

PLQCJ-B mod 4096? 
repeat 

Atll ♦=INTTDHEX(PLOC div 256)5 

AII23 I-INTTOHEX ( (PLOC div 16)mod 16)5 

AC33 ♦ -INTTOHEX (PLOC mod 16)5 

URITE<TTY»AC13»AC2Jf AC33» '/' )5 
BREAK (TTY ) 5 GETLINE5 GETSYM 5 

if SYM-NUMBER then 
fc) & jsl i n 

while B>65535 do BJ-B mod ROOK 5 
PMEMORY CPLOC3 J-B5 
PLOC :=(PL0C+1) mod PAWN? 

end 

else 

if SYMOLNENB then ERROR? 
until SYM-LNEND 

end 

else ERROR 
end-CDEP0SITP>5 

procedure DISPLAYP5 
va r 

PLOC t 0. ♦40955 
begin 

GETSYM? 

if SYM-NUMBER then 
b 0 £5 i n 

PLOCi-B mod PAWN? 
repeat 

AC 1 II J -INTTOHEX (PLOC div 256)5 
AC23 ♦ -INTTOHEX ( (PLOC div 16>mod 16)5 
AC31J -INTTOHEX (PLOC mod 16)5 
WRITE(TTY ! -AC13»An23f AC33» 

INTTOHEX (PMEMORY C PLOC 3 div PAWN) » 
INTTOHEX ( (PMEMQRYCPLOCII div 256) mod 16) x 
INTTOHEX ( ( PMEMQRYCPLOCII div 16)mod 16) » 
INTTOHEX (PMEM0RYCPL.QCI1 mod 16)) 5 
BREAK ( TTY ) 5 GETLINE5 GETSYM? 

if SYMOSLASH then 

PLOC ♦ = ( PL0C+ 1 > mod PAWN? 
until SYM-SLASH 

end 

else ERROR 

end-CDISPLAY PROGRAM MEM0RY> 

A 

> 

procedure DEPIP0RT5 
var 

PORT 10* ♦?? 
begin 



is^ 


GETSYM5 

if SYM --NUMBER then 
begin 

FORT ♦ -B mod 8f 
repeat 

WRITE ( TTY y ' IPORTC ' y PORT J2y ' 1 /' ) ? 

BREAK ( TTY) 5 GETLINE? GETSYM? 
if SYM -NUMBER then 
begin 

while B>65535 do B!~B mod ROOK 5 
INPORTCPORT3 i ~B5 
PORT ♦=( FOR T+l >mod 8 

end 

else 

if SYMOLNEND then ERROR 5 
until SYM=LNEND 

end 

else ERROR 

end-CDEPOSIT IN PORT>? 
procedure BIS0P0RT5 

var 

PORT i 0* «7? 
begin 

GETSYM 5 

if SYM-NUMBER then 
begin 

PORT:=B mod 85 
repeat 

WRITE < TTY y 'GPQRTE ' y PORT r'l/'r 

INTTOHEX ( OUTPORTCPGRTT div PAWN)y 

INTTOHEX < (OUTPGRTCPQRTT div 2S6)mod 16 )y 
INTTOHEX < (OUTPORTtPORTH div 16)mod 16) y 

INTT0HEX(0UTP0RTCPQRT3 mod 16)) 5 
BREAK < TTY)? GETLINE? GETSYM? 
if SYMOSLASH then PORT J = <PQRT+1 )mod 85 
until SYM=SLASH 

end 

else ERROR 

end-CDISPLAY OUT P0RT>5 
procedure DEPOSITR5 
var 

T ♦ packed arras Cl **83 of chary 
begin 

GETSYM? TJ==A5 
if (T~' PC ' ) then 

n 

WRITE(TTYyAy '/' > 5 BREAK C TTY) 5GETLINE5 GETSYM? 

if SYM-NUMBER then 
i n 

while B>4095 do Bt=B mod PAWN? 

PC J =B 5 


end 
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end 

else 


else ERROR 


if ( A-' ARO ' )or(A= / ARl ') 

or(A~ / IR ' )or( A~'TR ' )ther. 

bedin 

WRITE (TTY» Ay ' /' ) i 

BREAK (TTY) * GETLINE* GETSYM? 

if SYM==NUMBER then 
be^in 

while B>65535 do BJ-B div 16* 
if T~"ARO ' then ARO ♦ ~B 

©Is© 

if T=='AR1 ' then 

AR1 ♦ ~B 

©Is© 

if T“"TR ' then 

TRJ-B 

else 

if T~'IR 

then IRS*B 

end 

else ERROR 


end 

else 


' ) or (A-' PR 


if < A 55 ' ACC 
bed in 

WRITE(TTYyAy '/'>} 

BREAK (TTY)* GETLINE* GETSYM * 
if SYM=NUMBER then 

Kp din 

while B>-KING do 

Bt^B mod KING* 
if T='ACC ' then 

ACC J=B 


' ) then 


else 


end 

else ERROR 


if T = ' PR 

then PRJ^B 


end 

else 


' )or(A- / BP 
' ) then 


) 


if (A-' ARP 
or (A™' BIO 
bed in 

WRITE(TTY rAi '/' )? 

BREAK (TTY)* GETLINE? GETSYM? 

if SYM-NUMBER then 
bed in 

while B>1 do 

Bi=B div 2* 
if T='ARP 



else 


then ARF'J =B 


if T-'DF' 

then DPJ=B 

end 

else ERROR? 

GETSYM? 

if SYMOLNEND then ERROR 


end 

else ERROR 

end {DEPOSIT REGISTER.)-? 
procedure D I SPLAYR? {display redister> 
bed in 

GETSYM ? 

if(A~'ARO ')or(A=='ARl ' )or( A='TR ' > 

or(A-'IR ')or(A-'PC ')then 

bedin 

if A='PC ' then 

bed in 

B t «F*C v 

WRITELN(TTY * A * '/'t 

INTTOHEX (B div 256) 
r INTTOHEX ( ( B div 16) mod 16) » 

INTTOHEX <B mod 16))? 

BREAK (TTY) 

end 


else 


if A='ARO 7 then Bt=ARO 

else 
bed in 

if A='AR1 ' then B*~AR1 

else 

if a-'TR ' then Bt-TR 

else 

if A= ' IR 

then B;=IR? 


WRITELN(TTY » A* '/' * 
INTTOHEX (B 


div PAWN ) t 


INTTOHEX ( (B div 256)mod 16 ) * 
INTTOHEX ( <B div 16>mod 16 ) t 
INTTOHEX <B mod 16))? 


BREAK (TTY) 


end 


end 

else 


' )or(A~'PR 


) then 


if (A-' ACC 
bed in 

if a- 'ACC ' then B*=ACC 

els© 

if a^'PR ' then Bt^F’R? 

WRITELN(TTY r&r ' /' ? 

INTTOHEX (B div 268435456 ) 



INTTOHEX ( ( B div 16777216) mod 16) 
INTTOHEX< (B div 1048576>mod 16 ) r 
INTTOHEX ( ( B div ROOK) mod 16)*' ' 
INTTOHEX((B div PAWN) mod 16) * 
INTTOHEX ( (B div 256)mod 16 ) r 
INTTOHEX < (B div 16)mod 16)* 

INTTOHEX <B mod 16)) 5 
BREAK (TTY) ? 

end 

else ERROR 
end -CBISPLAYRT? 

procedure SETTRACEKset trace)- 
bed in 

WRITE( TTY * 'LOW J ' ) ? 

BREAK (TTY) * GETLINE* GETSYM ? 
if SYM=NUMBER then LOWJ=B mod PAWN 
else ERROR? 

WRITE (TTY* 'HIGH J ')* 

BREAK ( TTY ) ? GETLINE* GETSYM ? 
if SYM=NUMBER then HIGHJ^B mod PAWN 
else ERROR? 

TRFLG J =true 

end ? 

procedure REMTRACE? {remove trace> 
bed in 

TRFLGJ -false? 

FLGTRJ -false 

end? 

procedure PLOT? 
var 

HIGH * LOW* PLQC JO* *4095? 
bed in 

WRITE( TTY * 'LOW t ')? 

BREAK (TTY) ? GETLINE? GETSYM? 
if SYM-NUMBER then LOWJ-B mod PAWN 
else ERROR? 

WRITECTTY* 'HIGH J ')? 

BREAK (TTY) ? GETLINE? GETSYM ? 
if SYM=NUMBER then HIGH *~B mod PAWN 
else ERROR? 
repeat 

PLGCJ=LOW? LOW J-LQW+2 ? 
bps£ i n 

B J -PMEMORYCPLOC.] ? 

BJ=(B+ KNIGHT) mod ROOK? 

BJ-B div 820? 

T'.OOCi OT 

WRITE (OUTPUT * ' ')? BJ=B-1 
until B=0? 

WRITELN(OUTPUT » '*' ) 

end? 

until L0W>HIGH 
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end? 

procedure PINTR-CSETS INTERRUPTS AT USER DEFINED INTERVALS!)-? 
bed in 

WRITE(TTY* 'GIVE INTERRUPT AT CLOCK CYCLES i ')? 

BREAK (TTY) ? SETLINE? GETSYM* 
if SYM -NUMBER then RATE ♦ ~B 
else ERROR? 
l'NTRFLGJ-true 

end? 

procedure EXECUTE ! EXECUTE ONE INSTRUCTION >? 
var 

PREVPC t 0. ♦4095? 

IRHrlRL i 0* *255? 

PLOC l 0* *4095? 

BLOC : 0**255? 

INTERRUPT i boolean-CI NTERRUPT FLAG>? 

PREVINTRibooleanf INTERRUPT IN LAST CYCLE *FLAG>? 

DELAY Jboolean-CINTERRUPT TO BE DELAYED BY ONE CYCLE!)-? 
procedure BADINST ?-Cbad instruction!)- 
bedin 

ERRFLAGJ=true? 

WRITELN(TTY) ? 

WRITELN( TTY * 

'UN IMPLEMENTED INSTRUCTION AT USER PC}'* 
INTTOHEX (PREVPC div 256)* 

INTT0HEX( (PREVPC div 16) mod 16) * 
INTT0HEX( PREVPC mod 16)) 

end -CBADINSTT? . , 

procedure DERROR?-Cdata address — warnmd!)- 

bed in 

WRITELN(TTY) ? 

WRITELN(TTY * 

"DATA ADDRESS OUT OF RANGE AT USER PC*'* 
INTTOHEX (PREVPC div 256) * 

INTT0HEX( (PREVPC div 16)mod 16)* 

INTTOHEX (PREVPC mod 16)) 


ON TERMINALS 


end? 

procedure TRACE! TRACE DISPLAYED 
bed in 

WRITELN( TTY * ' PC ♦ ' * 

INTTOHEX (PC div 256)* 

INTTOHEX ( (PC div 16)mod 16) » 

INTTOHEX (PC mod 16)*' ' * 

'ACC* ' * INTTOHEX (ACC div 268435456)* 

INTT0HEX( (ACC div 16777216)mod 16)* 
INTTOHEX ( (ACC 
INTTOHEX ((ACC 
INTTOHEX ( (ACC 
INTTOHEX ( (ACC 
INTTOHEX ((ACC 
INTTOHEX (ACC mod 16)*' '» 

'ARO* ' * INTTOHEX (ARO div PAWN)* 


div 

div 

div 

div 

div 


1048576>mod 16) * 
ROOK) mod 16)* 
PAWN)mod 16)* 
256) mod 16) * 
16)mod 16) » 
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INTTOHEX< (ARO div 256) nod 16), 
INTTOHEX( < ARO div 16)mod 16), 

l'NTTGHEX(ARO mod 16),' 

'ari:',inttohex(ari div pawn) , 

INTTOHEXf (AR1 div 256)mod 16), 
INTTOHEX ( ( AR1 div 16)mod 16), 
INTTOHEX (AR1 mod 16),' ', 

' STATUS i ' , OUFL. i 2 , QUM i 2 , 1 NTH % 2 , 

ARP * 2 , DP ♦ 2 , ' CLKi ' ,CKJ 5) ? 

BREAK (TTY) 

end? 

procedure PINTERRUPT-CCHANGES PC APPROPRIATELY}-? 
vsr 

K * integer? 
bed in 

if ( CK mod RATE-0 ) then 

bed in INTERRUPT i -true ? PREUINTR J=true 

end else 

.if((CK mod RATE=l)or(CK mod RATE-2) )snd 
not PREVINTR then 

bedin INTERRUPT J -true ?PREVINTR J -true 
end 

else PREVINTRJ -false? 

if (INTERRUPT and not DELAY ar.d( INTM=0) )then 
begin 

INTERRUPTJ-false? INTM*=1? 
for K*=3 down to 1 do 

STACKCK3 *=STACKCK-1I1 ? 

STACKC03 i=PC?PC»=2 

end 

end? 

procedure OPRND? {fetch operand , modify AR,ARP> 

Procedure PINCREMENT? 
bedin 

if ARP-0 then 

if (ARO mod 512=511) 

then ARO* =AR0~51i 
else ARO* =AR0+1 

else 

if ( AR1 mod 512=511) 

then AR1 ♦ =AR1-511 
else AR1 ♦ =AR1+1 

end? 

procedure PDECREMENT ? 
bedin 

if ARP=0 then 

if (ARO mod 512=0) then AR0i=AR0+51 
else AROi =AR0-1 

else 

if ( AR1 mod 512=0)then ARli=ARl+51 
else AR1 ♦=AR1-1 

end? 



begin 

if IRLC128 then DLOCJ =DP#12S+IRL 
else 
begin 

if ARP-0 then DLOCJ=ARO mod 256 
else DLGCJ-ARl mod 256? 

IRL*=IRL-12S? 

if IRL> SS 48 then BADIN8T ? 

if ( IRL mod 8>l)theri BAD INST? 

if (IRL div 32-1 > then P INCREMENT? 

if < IRL div 16=1) then PDECREMENT ? 

if (IRL mod 16<2>then ARP* = IRL mod 2 

end ? 

if DLOC< 144 then 

SCRATCH i-DMEMORY Q’iLOC3 
else DERROR 
end -CFETCH OPERAND!)-? 
procedure PSGNA ?-Csidn & overflow!)- 
begin 

i f ( ( ACCCGUEEN ) and ( SCRATO--KGUEEN ) 
and ( TEMP>=QUEEN ) ) then 
begin 

0VFLJ=1? 

if 0VM=1 then ACCJ=QUEEN-1 
else ACCJ =TEMP 

end 

else 

if ( (ACC >=QUEEN) and (SCRATCH >=QUEEN) 
and ( TEMPCQUEEN >> then 
begin 

OVFL ♦ = 1 ? 

if 0VM=1 then ACCJ=QUEEN 
else ACC ♦ =TEMP 

end 

else ACC *=TEMP 

end? 

procedure PTRACE?<set or reset trace> 
begin 

if LOW=PREVPC then FLGTR * =true? 
if HIGH= (F‘REVPC-1 ) then FLGTR* =false? 

end? 

procedure PADS? 
b 0 st i n 

if ACC >=QUEEN then ACC * =KING-ACC ? 
i f (ACC=QUEEN ) and ( 0VM=1 > then 
ACC i -QUEEN-1 ? 

CKt=CK+l 

end? 

procedure PADD? 
var 

D i integer? 
begin 



OPRND? 

i f < SCRATCH >~KNI GHT ) then 

SCRATCH I =KING+SCRATCH--ROQK ? 

DJ» IRH? 
while D >0 do 
best in 

SCRATCH i * < SCRATCH*2 ) mod KING? 

D * — D~1 

end? 

TEMP J = < ACC+SCRATCH ) mod KING? 

PSGNA? 

CKt=CK+l 

end? 

procedure PADDH? 
best in 

OPRND? 

SCRATCH :=SCRATCH*ROOK? 

TEMP ♦»( ACC+SCRATCH )mod KING? 

PSGNA? 

CK J=CK+1 

end ? 

procedure PADDS? 
bed in 

OPRND ? 

TEMP : = ( ACC+SCRATCH ) mod KING? 

PSGNA? 

CKJ*CK+1 

end ? 

procedure PAND? 
var 

K»D i inteder? 
bed in 

OPRND? 

TEMP:* ACC mod ROOK? 

ACC J-0 ? 

DJ-ROOK? 

for K*”l to 16 do 
bed in 

ACC*~ACC*2? D J =D div 2? 
if ((SCRATCH div D)mod 2=l>and 
( ( TEMP div D ) mod 2=1 ) then 

ACCJ=ACC+1 

end ? 

CKJ=CK+1 

end ? 

procedure PAPAC5 
bed in 

SCRATCH :*PR? 

TEMP I = ( ACC+SCRATCH ) mod KING? 

PSGNA? 

ck:=ck+i 


end? 
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procedure PB? 
bedin 

PC J « ( PMEMQRYCPC3 ) mod PAWN $ 

CKJ«CK+2 

end? 

f rocedure PBANZ ? 
bedin 

if ARP=0 then 
bed in 

SCRATCH J-ARO mod 512? 
if SCRATCHOO then 

bed in 

PLOCJ-PC? 

PC t « ( PMEM0RYCPL0C3 ) mod PAWN ? 
AROi =AR0~1 

end 
else 
bed in 

pc:=pc+i?‘ 

ARO* -ARO+51 1 

end 

end 
else 
bed in 

SCRATCH {=AR1 mod 512? 
if SCRATCHOO then 

bed in 

ploc:=pc? 

PC : = ( PMEilORYC PLOCII ) mod PAWN ? 
AR1 ♦ “AR1-1 

end 
else 
bed in 

PC J=PC+1? 

AR1J=AR1+511 

end 

end? 

CKt=CK+2 

end? 

procedure PBGEZ ? 
bedin 

if ACC< QUEEN then 

PC i = ( PMEMORYCPC!] ) mod PAWN 
else PCi=PC+l? 

CKJ=CK+2 

end ? 

procedure PBGZ? 
bed in 

i f ( ACOO ) and ( ACCCQUEEN ) then 

PCJ=(PMEM0RYCPC3)mod PAWN 
else PCJ=PC+1? 

CKJ=CK+2 



end ? 

procedure PBIQZ? 
bed in 

if (BI0=0) then PCI=<PMEMGRYCPC3>mod PAWN 
else PC J =PC+1 ? 

CKJ=CK+2 

end ? 

p r ocedu re PBLEZ ? 
bed in 

i f ( ACC~0 ) o r ( ACO-GUEEN ) then 

PC i == < PMEMOR Y C PC 3 ) mod PAWN 
else PC:=PC+1? 

CK*=CK+2 

end? 

procedure PBLZ? 
b&sii n 

if ACO-GUEEN then PCi*<PMEM0RYCPC3>mod PAWN 
else PCJ-PC+l? 

ck;=ck+2 

end ? 

procedure PBNZ? 
bed in 

if ACCOO then 

PCJ-(PMEM0RYCPC3 )mod PAWN 
else PCJ*PC+1? 

CK*=CK+2 

end? 

procedure PBU? 
bed in 

if (OUFL-l > then 
b@s^xn 

PC ♦” (PMEMOR Y CPC 3 ) mod PAWN? 

OUFL ♦ ~0 

end 

else PCi-PC+1? 
ck:=ck+2 

end? 

procedure PBZ? 
bosi i n 

if <ACC=0)then PCJ=<PMEM0RYCPC3)mod PAWN 
else PCS«PC+1? 

CKJ-CK+2 

end? 

procedure PCALA? 
var 

K * inteder? 
bed in 

for K*=3 downto 1 do 

STACKCK3 * -STACKCK -13 ? 

STACKC03 {=PC? 

PCJ=ACC mod PAWN? 

CKJ-CK+2 
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end ? 

procedure PCAL.L? 
var 

K * integer? 
bed in 

for K*=3 down to i do 

STACK II K 3 i -STACK C K- 1 3 ? 

STACKC03 J=PC+1 ? 

PCi=PMEMQRYCPC3? 

CKt»CK+2 

end? 

Procedure PDINT? 
bed in 

INTMt=l ? 

CKi-CK+1 

end ? 

procedure PDMQV? 
bed in 

OPRND? 

DLOCi=DLQC+l? 
if (DL0C<144)then 

DMEM0RYCDL0C3 * “SCRATCH 
else DERRQR? 

CKt “CK+1 

end? 

procedure FEINT? 

Sjacf i n 

INTM i~OP DELAY J -true? 

CKt “CK+.1 

end ? 

procedure PIN? 
var 

X l char? 

KyD iinteder? 
bed in 

OPRND? 

DJ=IRH mod 8? 
if D~0 then 
bedin 

BJ“0? 

for KJ=1 to 4 do 

kadi f*j 

READ< INPUT y X ) ? 

if X in II'0'**'9 / y / A'*»'F'3 

then X ♦ —X 
else BABINST? 
B*-B>K16+HEXT0INT (X) 

end ? 

RE ADLN (INPUT)? 

DMEM0RYCDLQC3 1 =B 

end 

else DMEM0RYCDL0C3 t =INP0RTCB3 ? 



CK i -CK+2 
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end ? 

procedure PLAC? 
var 

D * integer? 
bed in 

OPRND? 

if (SCRATCH>=KNIGHT ) then 

SCRATCH S=KINGfSCRATCH~RQOK? 
Di=IRH mod 16? 
while D>0 do 
bed in 

SCRATCH t ~ ( SCRATCH*2 ) mod KING ? 

d:=d-i 

end? 

ACC : -SCRATCH? 

CKi=CK+l 

end ? 

procedure F'LACK? 
bed in 

ACCS =IRL? 

CKi-CK+1 

end? 

Procedure F'LAR? 
bed in 

OPRND? 

if < ( IRH mod 8)div 2=0) then 
bedin 

if (IRH mod 8=0)then AROJ=SCRATCH 
else AR1*=SCRATCH 

end 

else BADINST? 

CKi=CKFl 

end ? 

procedure F'LARK? 

besf in 

if ( ( IRH mod 8>< 2 )theri 

if (IRH mod 2=0) then AR0S=IRL 

else AR1«=IRL 
else BADINST? 

CKJ =CK+.t 

end? 

procedure F'LARF’? 
b 0 si A n 

if((IRL div 2)=64> then ARP:=IRL mod 2 
else BADINST? 

ck:=ck+i 

end ? 

procedure F'LDP? 
bedin 

OPRND ? 

DPS --SCRATCH mod 2? 
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ck:«ck+i 

end 5 

procedure PLDPK'5 
bed in 

if ( ( IRL div 2 ) ::= 0 ) then »Pi=IRL mod 2 

else BAD INST 5 

CKi= : CK+l 

end? 

p rocedu r e PLST 5 
bed in 

OPRND 5 

OVFL * = ( SCRATCH div KNIGHT) mod 2 5 
OVMJ- (SCRATCH div 16384) mod 25 
ARP S= (SCRATCH div 256) mod 25 
DP:=SCRATCH mod 25 
CKi=CK+l 

end 5 

procedure PLT5 
bed in 

OPRND 5 

TR* -SCRATCH 5 
CKt-CK+l 

end 5 

procedure PLTA5 
bedin 

OPRND 5 

TR* -SCRATCH 5 
SCRATCH: “PR 5 

TEMP : ss ( ACC+SCRATCH ) mod KING 5 
PSGNA5 

ck:=ck+i 

end 5 

procedure PLTD5 
bedin 

OPRND 5 

tr:=scratch5 

SCRATCH :=PR 5 

TEMP I * (ACC+SCRATCH ) mod KING 5 
PSGNA5 

DMEMORYCDLQC+1 1 J -DMEM0RYCDL0C3 5 
CK * -CK+1 

end 5 

procedure PMAR5 
bedin 

OPRND 5 

ck:*ck+i 

end 5 

procedure PMPY 5 
vsr 

Ps-Q : boo lean 5 
bedin 

PJ=true5 OS -true 5 



ill 


OPRND ? 

if ( TR-KNIGHT ) and ( SCRATCH™ KNIGHT ) then 
PR:=QUEEN+QUEEN div 2 

else 
bed in 

if ( SCRATCH > = K N I GH T ) t h e n 
bed in 

P* -false? 

SCRATCH J -ROOK-SCRATCH 

end ? 

TEMP*~TR? 

i f ( TEMP.’:: -KNIGHT ) then 
bedin 

QJ^false? 

TEMP i =ROOK~TEMP 

end if 

PR ♦ ~TEMP>KSCRATCH ? 
if (POO) then 

PRJ-KING-PR 

end ? 

DELAY* -true? CKJ=CK+1 

end ? 

procedure PMPYK? 
var 

PrQ i boolean? 
be din 

pj «t rue? Q*=true? 

SCRATCH t =IR mod 8192? 
i f ( SCRATCH>=PAWN > then 

bed in 

SCRATCH t =SCRATCH+57344 ? 

P*=false? 

SCRATCH t =ROOK~SCRATCH 

end? 

TEMP*=TR? 

if (TEMP >KNIGHT) then 
bedin 

Gi -false? 

TEMP J= (ROOK-TEMP) 

end? 

pr:=temp*scratch? 

if ( ( P and (not Q ) ) o r ( ( not P > and Q ) ) then 

PRJ-KING-PR? 

DELAY *=t rue? CKJ=CK+1 

end ? 

procedure PNOP? 
bedin 

CKJ-CK+1 

end? 

procedure POR? 
var 


K»D Jinteder? 
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begin 

OPRND ? 

TEMP i -ACC mod ROOK ? 

ACC ♦ =0 ? 

DJ=ROOK? 

for Kt = l to 16 do 
begin 

ACCJ=ACC*2? D:=» div 2? 
if < (SCRATCH div D)mod 2=1) or 
((TEMP div ID mod 2=1) then 
ACC J=ACC+1 

end ? 

CKJ*CK+1 

end ? 

procedure P0UT5 
vsr 

X i char? 

D J integer? 
begin 

OPRNO? 

DJ=IRH mod 8? 

OUTPORTC IG J ^SCRATCH ? 
if D=0 then 
begin 

BJ =SCRATCH ? 

WRITE ( OUTPUT r INTTOHEX ( B div 4096) * 
INTTOHEX ( ( B div 256)mod 16)* 
INTTOHEX ( (B div 16)mod 16) » 
INTTOHEX (B mod 16))? 

WRI TELN ( OUTPUT ) 

end? 

ck:=ck+2 

end? 

procedure PPAC? 
begin 

ACC t =PR ? 

CK :=CK-tl 

end? 

procedure PPOP? 
var 

K * integer? 
begin 

ACc:=sTACKi:oa? 
for KJ=lto 3 do 

STACKCK-1 3 t =STACKCK3 ? 

CK * =CK+ 2 


end? 

procedure PPUSH ? 
var 

K i .integer? 
begin 
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for KL»3 down to 1 do 

STACKCK3 i==STACKTK-l 3 ? 

STACKC03 J=ACC mod PAWN? 

CKJ-CK+2 

end ? 

procedure PRET? 
var 

K i integer? 
begin 

PC* “STACK CO 3 ? 
for KJ~1 to 3 do 

STACK CK-13 :=STACKTK3? 

CK*=CK+2 

end 5 

procedure PRQVM? 
begin 

ovm:=o? 

CK J=CK+1 

end 5 

procedure PSACH? 
vsr 

D i integer? 
begin 

OPRND ? 

Dt=IRH mod 8? 
if <D=0)or (D-l )or(D=4> then 
begin 

SCRATCH t ==ACC? 
while(D>0)do 

begin 

SCRATCH i = ( SCRATCH*2 ) mod KING? 

d:=d-i 

end? 

SCRATCH J=“-SCRATCH div ROOK? 

DMEMORYC BLOCH ♦ -SCRATCH? 

end 

else BADINST? 

CK ♦ -CK+1 

end ? 

procedure PS ACL? 
begin 

OPRND? 

DMEMORYCDLOC] t==ACC mod ROOK? 

ck:=ck+i 

end? 

procedure PSAR? 
begin 

OPRND ? 

if ( IRH mod 2>=0 then DMEM0RYCDLOC3 i ~ARO 
else DMEMORYCDLOCT : -AR1 ? 

CK{=CK-fl 


end ? 



procedure PSOMM? 
bed in 

00MJ-1? 

CK*~CK+1 

end? 

p rocedu re PSP AC ? 
b@£$i n 

SCRATCH J=K I NG-PR? 

TEMP J = < ACC+SCRATCH ) mod KING? 

PSGNA? 

CKJ-CK+1 

end? 

procedure PSST ? 
bed in 

if (IRL mod 128X0 then 
bessi n 

~ ’if IRL<16 then DL0CX128+IRL 

else BAD INST 

end 

else OPRND? 

DMEM0RYCDL0C3J=0VI-L)KKNIGHT+0MM>I< .16384 
+ARP*256+DP? 

CKJ=CK+1 

end ? 

procedure PSUB? 
vsr 

D ♦ integer? 
bed in 

OPRND? 

if SCRATCH>=KNIGHT then 

SCRATCH J-K I NG+SCRATCH-ROOK? 
Dt-IRH mod 16? 
while D>0 do 
bed in 

SCRATCH !~(SCRATCH*2)mod KING? 
DJ~D-1 

end? 

SCRATCH t -KING-SCRATCH ? 

TEMP * = (ACC+SCRATCH ) mod KING? 

PSGNA? 

CKJ-CK+1 

end? 

procedure PSUBC? 
bed in 

OPRND? 

if SCRAT CH>=KNI GHT then 

SCRATCH t -KING+SCRATCH-RODK ? 

SCRATCH J=(SCRATCH*KNIGHT) mod KING? 

SCRATCH i =K I NG-SCRATCH ? 

TEMP J == ( ACC+SCRATCH ) mod KING ? 

if (TEMP div ROOKX KNIGHT then 
ACCt=(TEMP*2+l)mod KING 
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else ACC:=(ACC*2)mod KING* 
CKJ-CK+l 

end ? 

procedure PSUBH ? 
bed in 


OPRND ? 


scratch: 

scratch: 


=SCRATCH*ROOK? 
=K I NG-SCRAT CH ? 


TEMP : = < ACC+SCRATCH ) mod KING ? 
PSGNA? 

ck:=ck+i 


end? 

p rocedu r e PSLJBS ? 
bed in 


OPRND? 

SCRATCH : “KING- SCRATCH ? 

TEMP : = ( ACC+SCRATCH ) mod KING? 
PSGNA? 

CK : “CK+l 

end? 


procedure PTBLR? 
bed in 

OPRND? 


STACKC33 :=STACKC23 ? 

PL.QC*‘=ACC mod PAWN? 
DMEMORYCDLOCI :~PMEMORVCPLOCI y 
ck:=ck+3 

end ? 

procedure PTBLW? 
bed in 

OPRND? STACKt:3T:=STACK[:23? 
PLOC,:=ACC mod PAWN? 
PMEMORYCPLOCI : -DMEMORYCDLOCI ? 
ck:=ck+3 

end ? 

procedure PXOR? 

V3r 

PyQ : boolean? 


KyD :inteder? 
bed in 

OPRND? 

TEMP ACC mod ROOK? 

acc:-o? d:=rook? 

for K:=l to 16 do 
bedin 

ACC:=ACC*2? D:=D div 2? 

if (SCRATCH div D)mod 2=1 then Pt=true 

else P:=fslse? 

if(TEMP div D)mod 2=1 then Q*=true 
else Q:=false? 
if (POQ)then ACC:=ACC+1 


end? 
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CKJ=CK+1 

end 5 

procedure PZAC5 
bed in 

ACC 2-0 5 

ck:=ck+i 

end 5 

p rocedu r e PZALH 5 
bed in 

0PRND5 

ACC ♦ “SCRATCH#ROOK 5 
CK ♦ --CK+1 

end 5 

procedure PZALS5 
bed in 

DPRND5 

ACC i -SCRATCH 5 
CKi=CK+l 

end 5 

procedure PMISC5-CIRH common » inspect IRLT 
ver 

K l iriteder? 

hp^ i r» 

Kt-IRL mod 1285 

if K>29 then BAD INST 5 
i f ( K>2 ) end ( K<8 ) then BAD I NST 5 

if (K mod 28>16> then BADINST 5 
case K of 

0 I PN0P5 

1 : POINT 5 

2 i PE I NT 5 

8 t PADS 5 

9 t PZAC5 

10 J PROVM 5 

11 : PS0VM5 

12 i PC ALA 5 

13 i PRE'T 5 

14 l PPAC5 

15 J PAP AC 5 

16 t PSP AC 5 

28 i PPUSH 5 

29 t PPOP 

end 

end 5 

•CEXECUTE BEGINS)- 

Kpd i j"i 

IR ♦ -PiiEMQRYCPC'J 5 
IRH*=IR div 2565 
IRL2-IR mod 2565 
PRE VPC * -PC 5 
PC* -PC+1 5 
ERRFL.AG J =f else 5 
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DELAY J -false? 
if TRFLG then PTRACE? 

case IRH of 

0 : F'ADD ? 

1 X PADD ? 

2 X PADD? 

3 X PADD? 

4 X PADD? 

5 X PADD? 

6 i PADD? 

7 X PADD? 

8 X PADD? 

9 X PADD? 

10 X PADD? 

11 X PADD? 

12 X PADD? 

13 *, PADD? 


14 : 

PADD? 

is : 

PADD? 

16 t 

PSUB? 

17 l 

PSUB? 

18 t 

PSUB? 

19 { 

PSUB? 

20 5 

PSUB? 

21 X 

PSUB? 

♦ 

Si Him • 

PSUB? 

23 : 

PSUB? 

24 X 

PSUB ? 

25 X 

PSUB? 

26 X 

PSUB ? 

27 X 

PSUB? 

28 i 

PSUB? 

29 i 

PSUB? 

30 X 

PSUB? 

31 : 

PSUB? 

32 X 

PLAC? 

33 X 

PLAC? 

34 X 

PLAC? 

35 i 

PLAC? 

36 X 

PLAC? 

37 : 

PLAC? 

38 i 

PLAC? 

39 : 

PLAC? 

40 X 

PLAC? 

41 X 

PLAC? 

42 X 

PLAC? 

43 X 

PLAC? 

44 I 

PLAC? 

45 X 

PLAC? 

46 X 

PLAC? 

47 X 

PLAC? 

48 X 

PSAR ? 
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49 

4 

4 

PSAR? 

56 

4 

4 

PLAR ? 

57 

4 

4 

PLAR? 

64 

4 

4 

PIN? 

65 

4 

4 

PIN? 

66 

4 

4 

PIN? 

67 

4 

4 

PIN? 

68 

4 

4 

PIN? 

69 

4 

4 

PIN? 

70 

4 

4 

PIN? 

71 

4 

4 

PIN? 

72 

4 

4 

POUT? 

73 

4 

4 

pour? 

74 

4 

4 

POUT ? 

75 

4 

4 

POUT? 

76 

4 

4 

POUT? 

77 

4 

4 

POUT ? 

78 

4 

4 

POUT? 

79 

4 

4 

pour ? 

80 

4 

4 

PSACL? 

88 

,89 X PSA 

92 

4 

4 

PSACH? 

96 

4 

4 

PADDH? 

97 

4 

4 

PADDS? 

98 

4 

4 

PSUBH ? 

99 

4 

4 

PSUBS? 


100 t PSUBC? 

101 X PZALH? 

102 X PZALS? 

103 X PTBLR? 

104 i PMAR ? 

105 X PDMGV ? 

106 X PLT ? 

107 i PLTD? 

108 X PLT A ? 

109 5 PMPY ? 

110 X PLDPK ? 

111 5 PLDP5 

112 J PLARK? 

113 i PL ARK? 

120 i PXOR? 

121 t PAND? 

122 i POR? 

123 J PLST? 

124 i PSST ? 

125 X PTBLW? 

126 X PLACK? 

127 i PM I SC? 

128 i PMPYK? 

129 X PMPYK? 

130 X PMPYK? 

131 X PMPYK? 
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132 i PMPYK ? 

133 i PMPYK? 

134 { PMPYK? 

135 i PMPYK? 

136 i PMPYK? 

137 J PMPYK? 

138 t PMPYK? 

139 { PMPYK? 

140 ! PMPYK? 

141 : PMPYK? 

142 { PMPYK? 

143 i PMPYK? 

144 t PMPYK? 

145 t PMPYK? 

146 } PMPYK? 

147 i PMPYK? 

148 i PMPYK? 

149 J PMPYK? 

150 l PMPYK? 

151 t PMPYK? 

152 t PMPYK? 

153 { PMPYK? 

154 } PMPYK? 

155 i PMPYK? 

156 J PMPYK? 

157 t PMPYK? 

158 i PMPYK? 

159 { PMPYK? 

244 J PBANZ ? 

245 t PBM? 

246 i PBIOZ ? 

248 : PCALL? 

249 t PB? 

250 l PBLZ ? 

251 t PBLEZ? 

252 t PB(3Z ? 

253 i PBGEZ? 

254 t PBNZ? 

255 t PBZ ? 
others l BADINST 

end ? 

if INTRFLG then PINTERRUPT? 
if FLGTR then TRACE 
end-CEND EXECUTE}-? 

procedure GO -C execute in automatic mode >? 
bed in 

repeat EXECUTE 
until BRKPTEPC3 or ERRFL.AG ? 
if BRKPTEPC3 then 
bedin 


WRITELN(TTY) ? 

WRITELN( TTY > ' Break-at-user-pc * ' 


f 
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INTTOHEX<PC div 4096)* 
l'NTT0HEX< (PC div 256)mod 16) » 
INTTOHEXt (PC div 16>u.od 16)v 
INTT0HEX<PC mod 16)) 

end 

end do >? 

procedure BRKFREE(var POS.inteder? vsr FL.boolean)? 
var 

K ♦ inteder? 
bed in 

BRKT ABLE C NBRK 1 . FLAG J -fa 1 se ? 

Kt-~0r 

while BRKTABLECK3 .FLAG do Ki=K+l? 

if K-NBRK then FLt “false 

else 

bedin FLJ^true? POSi-K 
end 

end Cbrkfree >? 

procedure BRKSRCH (PLOCJLOCATION? var PGSJ inteder? 

vsr FLi boolean)? 

vsr 

K t inteder? 
bedin 

BRKTABLECNBRK3 .FLAG I -true? 

BRKT ABLE C NBRK. 1 . PLACE i -PL0C ? 

K t -0 ? 

while ( not BRKTABLECK3 ♦ FLAG)or 
( BRKTABLECK3 . PLACEOPLGC ) do K t =K+ 1 ? 
if K~NBRK then FL* -false 
else 

bedin FL.— true? POS.—K 
end 

end -C brksrch >? 

procedure SETBRK <. set break-points >? 
var 

F'LOC ♦ 0. .4095? 

K } inteder? 

FLAG i boolean? 

bedin 

GETSYM ? 

while SYMOLNEND do 
bedin 

if SYM-NUMBER then 
bedin 

PLGCi-B mod PAWN? 

BRKSRCH <PL0C»K» FLAG) ? 
if not FLAG then 
Id © si i i**i 

BRKFREE<K*FLAG)? 
if FLAG then 
bedin 

BRKTABLE CK 3 . FLAG J =t rue ? 



BRKTABLECKl ♦ PLACE i “PLOC ? 
BRKPTCPL0C3 }=true 

end 
else 
bed in 

WRITELN(TTY)? 

WRITELNdTY > 

'Brkpt-table full') 

end 

end 

end 

else ERROR? 

GETSYM 

end 

end ■<: setbrk >? 

procedure INITBRK C initialize break-point table >? 
var 

K i i nte.de r? 

J"'i p cf ^ J"| 

" for KJ-0 to 4095 do BRKPTCK Hi “false? 

for KJ“0 to PR ED ( NBRK ) do BRKTABLECKl ♦ FLAG i~ raise 

end C initbrk >? . 

procedure REMBRK C remove break-points >» 

var 

PLOC i 0* ^ 4095? 

K ♦ inteder? 

P'LAG * boolean? 
bed in 

GETSYM ? 

if SYM=LNEND then INITBRK? 
while SYMOLNEND do 
bedin 

if SYM“NUMBER then 
b 0 i n 

PL0Ci“B mod PAWN? 

BRKSRCH ( PLOC f K » FLAG ) ? 
if FLAG then 
bedin 

BRKT ABL E EK3* FLAG* “false? 
BRKPTCPLGC3 i “false 

end 

end 

else ERROR? 

GETSYM 

end ? 

end -C rembrk >? . 

Procedure LSTBRK < list all break-points >* 

var 

PLOC i 0* +4095? 

K ; irrteder? 
bedin 

for KJ “0 to PRED(NBRK)do 



if BRKTABLE!K3*FLAG then 
bed in 

PL OC J -BRKTABLE L"K .'.'I . PLACE 9 
WRITELN(TTYv 

I NTTOMEX < PI..OC div 256) » 
INTTOHEX( (PLOC div 16)mod 16) » 
INTTOHEX < PLOC mod 16)) 

end 

end i lstbrk >9 

procedure CMDTABLEKcommsnd table> 
bed in 

TABLECm ♦CMDJ-'BRK '9 

TABLE II 211 * CMB t * ' BEPBATA ' 9 
TABLE!33 * CMB ♦ « ' DEPIPORT ' 9 

T ABLE C 4 3 . CMB ♦ = ' BEPPROG ' 9 
TABLE C 5 3 ♦ CMB ♦ = ' BEPREG '9 
TABLE C 6 3 ♦ CMB : ® ' D ISDATA ' 9 
TABLE II 7 3 ♦ CMB i * ' B ISOPORT ' 9 
TABLE! 83 ♦ CMBi^'BISPROG ' 9 
TABLE II 9 3 ♦CMB*~"BISREG ' 9 

TABLE!103*CMB?='EX ' 9 

TABLE II 11 II ♦ CMB ♦» 'EXIT 'i 

TABLE! 123* CMB := 'GO '9 

TABLEII133 *CMBi~'INTR '9 

TABLE! 143 ♦ CMB «=' LOAD '9 

TABLE! 153 ♦ CMB t ~ ' LSTBRK ' 9 

TABLE! 16 3 ♦ CMB PLOT '9 

TABLE! 173 ♦ CMB* = 'REMBRK '9 

TABLE! 183* CMB J='REMTR ACE' 9 

.TABLEE193 ♦ CMB* -'RESET '9 

TABLE!203 * CMB i = ' SETTRACE ' 

end 9 

rocedure CMBPROC 9 -Ccommand processor) 
vsr 

BONE i boolean 9 
FIRST* LAST xMIBBLE J integer 9 
bed in 

BONE i= false 9 COMMANB %■= A 9 
FIRST i = 1 9 LAST S® 20 9 
while ((LAST >= FIRST) and (not BONE)) do 
bessi n 

NIBBLE i- (FIRSTfLAST) div 2 9 

if COMMANB > TABLE!MIBBLE3 *CMB then 
FIRST 1= MIBBLE + 1 

0 1 30 

if COMMANB < TABLECMIBBLE3 *CMB then 
LAST i* NIBBLE - 1 

else 

if CQMMANB=TABLE!MIBBLE3 ♦ CMB ther 
BONE i~ true 

end 9 

if BONE then 
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